Повтор, однако. Даже не думал, что может быть.Avada писал(а):Кстати, всем интересующимся советую также заглянуть в начало текущей темы.
Вчера в личку скидывал скрипт. Пусть и тут будет:
Код: Выделить всё
'===============================================
' Переименовать выделенные mp3-файлы по шаблону:
' <ВЕРХНИЙ РЕГИСТР> - <Слова С Заглавной>
' Параметр: %WL
'===============================================
If WScript.Arguments.Count = 0 Then WScript.Quit
With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each F in Split(.GetFile(WScript.Arguments(0)).OpenAsTextStream(1, -1).ReadAll, vbNewLine)
If .FileExists(F) And LCase(.GetExtensionName(F)) = "mp3" Then
Str = "" : Set GF = .GetFile(F) : FN = GF.Name : S = InStr(FN, " - ")
If S Then
For Each i in Split(Mid(FN, S)) : Str = Str & " " & UCase(Left(i,1)) & Mid(i,2) : Next
N = UCase(Left(FN, S - 1)) & Mid(Str, 2) : NN = N & "#"
GF.Name = NN : .GetFile(GF.ParentFolder & "" & NN).Name = N
End If
End If
Next
End With