Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Создание в папке подпапки с последующим перемещением файлов

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
staralex



Joined: 01 Sep 2012
Posts: 4

Post (Separately) Posted: Sat Sep 01, 2012 01:25    Post subject: Создание в папке подпапки с последующим перемещением файлов Reply with quote

Здравствуйте!Существует каталог (на самом деле их много,для примера возьму один) с файлами разного формата среди которых файлы jpg,Помогите пожалуйста решить такую задачу, надо автоматически создать в этом каталоге подкаталог "Cover",и переместить в него из каталога только файлы формата jpg ,или как вариант выделенные курсором файлы.
Заранее благодарю за ответ
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Sat Sep 01, 2012 10:06    Post subject: Reply with quote

Встать на любой файл *.jpg -> Нажать Alt+(Num+) -> Нажать Ctrl+M -> Маска для имени файла - "Cover\[N]", маска расширения по-умолчанию - "[E]" -> Enter
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
staralex



Joined: 01 Sep 2012
Posts: 4

Post (Separately) Posted: Sat Sep 01, 2012 10:14    Post subject: Reply with quote

Спасибо Smile
Back to top
View user's profile Send private message
staralex



Joined: 01 Sep 2012
Posts: 4

Post (Separately) Posted: Sat Sep 01, 2012 18:38    Post subject: Reply with quote

Можно ли такую вещь сделать сразу с несколькими каталогами?
Back to top
View user's profile Send private message
MVV



Joined: 15 Oct 2009
Posts: 4811
Location: Ростов-Дон

Post (Separately) Posted: Sat Sep 01, 2012 19:16    Post subject: Reply with quote

Выделить каталоги, с которыми надо проделать фокус, нажать Ctrl+Shift+B, дальше в точности следовать инструкциям из 2 поста.
_________________
TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel…
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Sat Sep 01, 2012 19:17    Post subject: Reply with quote

сохранить как .cmd
Code:
@echo off &setlocal enableextensions
rem   Параметры: "%WL" "Cover\" *.jpg

if "%~3"=="" (
echo Use: %~n0 dirs.list "New Folder\" *.ext
pause >nul &goto :eof)

for /f "delims=" %%d in ('type "%~1"') do (
if not exist "%%d\%~2" md "%%d\%~2"
move /y "%%d\%~3" "%%d\%~2")
сделать кнопку

*выделять папки


Last edited by Tol!k on Sun Sep 02, 2012 21:23; edited 2 times in total
Back to top
View user's profile Send private message
staralex



Joined: 01 Sep 2012
Posts: 4

Post (Separately) Posted: Sat Sep 01, 2012 20:14    Post subject: Reply with quote

огромное вам всем спасибо! Smile
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Sep 01, 2012 21:10    Post subject: Reply with quote

+ Тихий вариант:
Code:
'============================ VBS ============================
' Создание отсутствующих подкаталогов с заданным именем внутри
' выбранных папок с перемещением в них файлов в заданной маске
' Параметры: %WL <имя подкаталога> <маска>
' Пример:    %WL Images *.gif;*.jpg;*.jpeg;*.png;*.tif;*.tiff
'=============================================================
Option Explicit: Dim List, Name, Mask, Shell, Fd, Items, FN
With WSH.Arguments
  If .Count = 0 Then WSH.Quit
  List = .Item(0) : Name = .Item(1) : Mask = .Item(2)
End With : Set Shell = CreateObject("Shell.Application")
Set List = CreateObject("Scripting.FileSystemObject").OpenTextFile(List,,,-1)
Do: Fd = List.ReadLine
  If Right(Fd, 1) = "\" Then
    Set Items = Shell.NameSpace(Fd).Items
    Items.Filter 8256, Mask
    If Items.Count > 0 Then
      FN = Fd & Name : Shell.NameSpace(Left(Fd, 3)).NewFolder Mid(FN, 4)
      Shell.NameSpace(FN).MoveHere Items, 5652
    End If
  End If
Loop Until List.AtEndOfStream : List.Close
Set List = Nothing : Set Shell = Nothing
Back to top
View user's profile Send private message
3dgopnik



Joined: 30 Jul 2019
Posts: 1

Post (Separately) Posted: Wed Jul 31, 2019 12:18    Post subject: добавить несколько расширений Reply with quote

возможно добавить несколько расширений?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group