Single Post - Нужен скрипт "поиск+переименование+перенос"

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Нужен скрипт "поиск+переименование+перенос"

Author

Message

Flasher

Posted: Sat Feb 02, 2013 20:01 Post subject:

Ок. Вижу разницу. Появилось дополнительное условие с переименованием одного из родительских каталогов. Средствами ТС так не получится. Только скриптингом.
Теперь самое главное:

Petr_Ch wrote:

после редактирования файлов всё предстоит проделать в обратном порядке

Что понимается под редактированием файлов?

Скрипт, как я уже писал, простой (но идея кидать файлы туда-сюда пока в моей голове не укладывается):

Code:

'===============================================================================
' Перемещение jpg- и tif-файлов из папки ..\№\pic\ в корень выбранной папки
' с переименованием их по шаблону №_имя и последующим удалением пустых подпапок
' Параметры: "<путь к папке>" <имя новой папки>
' Пример: %V 22222222
'===============================================================================
With WScript.Arguments
If .Count < 2 Then : MsgBox "Укажите 2 параметра!", 4144 : Wscript.Quit : End if
Path = .Item(0) : NewName = .Item(1)
End With
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Path) : Folder.Name = NewName
NewPath = Folder.ParentFolder & "\" & NewName
For Each Fd In FSO.GetFolder(NewPath).SubFolders
If IsNumeric(Fd.Name) Then
For Each Fl In FSO.GetFolder(Fd & "\pic").Files
Ext = LCase(FSO.GetExtensionName(Fl))
If Ext = "jpg" Or Ext = "tif" Then Fl.Move NewPath & "\" & Fd.Name & "_" & Fl.Name
Next : If Fd.Size = 0 Then Fd.Delete
End If
Next : Set FSO = Nothing : Set Folder = Nothing : WScript.Quit

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.

Last edited by Flasher on Sun Feb 03, 2013 00:25; edited 3 times in total