'==================== 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,_
" Переименование файлов внутри папок " |