' Параметр: %L
With CreateObject("Scripting.FileSystemObject")
Set List = .OpenTextFile(WScript.Arguments(0))
Do : F = List.ReadLine : N = .GetBaseName(F)
If IsNumeric(N) And .FileExists(F) Then _
.GetFile(F).Name = "set" & Int(N/3 - 0.1) + 1 & "-" & Int((N/3 - Int(N/3 - 0.1))*3 + 0.1) & ".png"
Loop Until List.AtEndOfStream
End With |