| Single Post |
Topic: Групповое переименование |
| Author |
Message |
Flasher
|
 Posted: Mon May 04, 2015 15:39 Post subject: |
 |
|
Пробуй: | Code: | '==========================================================
' Именовать файлы нумерацией в структуре активного каталога
' Файлы с базовым нумерным именем до 1000 не затрагиваются
' Условие: путь запуска - пустой
' Параметр (необязательный): <фильтр-список расширений>
' Пример: *.jpg;*.jpeg
'==========================================================
Set ShA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count Then Filt = WScript.Arguments(0) Else Filt = "*.*"
With CreateObject("WScript.Shell")
CD = .CurrentDirectory
If CD = FSO.GetParentFolderName(WScript.ScriptFullName) Then WScript.Quit
ForFolder CD : .SendKeys "^R"
End With
Sub ForFolder(Path)
Set Items = ShA.NameSpace(Path).Items
Items.Filter 64, Filt
For Each F in Items
Ext = FSO.GetExtensionName(F) : If Ext <> "" Then Ext = "." & Ext
i = i + 1 : N = i & Ext : BN = FSO.GetBaseName(F)
If IsNumeric(BN) Then
If BN > 999 Then
While FSO.FileExists(Path & "\" & N) Or FSO.FolderExists(Path & "\" & N)
i = i + 1 : N = i & Ext
Wend : F.Name = N
End If
ElseIf Not FSO.FileExists(Path & "\" & N) Then F.Name = N
End If
Next : Items.Filter 160, "*"
For Each Fold in Items : ForFolder Fold.Path : Next
End Sub |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue May 05, 2015 12:43; edited 4 times in total |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
