Flasher
|
Posted: Sun Jun 10, 2018 00:31 Post subject: |
|
|
Не вышло сходу с cmd-строкой (по синтаксису верно, но там скорее косяк самой cmd), поэтому vbs:
Code: | '==================== VBS ===================
' Переименовать файлы внутри выделенных папок
' по их именам с добавкой - и заданного числа
' Параметр: %WL
'======== Массив подстановочных чисел =======
Arr = Array(1,5,2,4,3,7,6,8)
'============================================
If WSH.Arguments.Count = 0 Then WSH.Quit
With CreateObject("Scripting.FileSystemObject")
Set L = .OpenTextFile(WSH.Arguments(0),,,-1)
Do : P = L.ReadLine
If .FolderExists(P) Then
Set Files = .GetFolder(P).Files
If Files.Count = UBound(Arr) + 1 Then
i = 0
For Each F in Files
F.Name = "w" & .GetFileName(P) & "-" &_
Arr(i) & "." & .GetExtensionName(F) : i = i + 1
Next
End If
End If
Loop Until L.AtEndOfStream : L.Close
End With
MsgBox Space(18) & "Выполнено!", 4160,_
" Переименование файлов внутри папок " |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|