Flasher
|
 Posted: Sat May 18, 2013 13:41 Post subject: |
 |
|
| Avada wrote: | | Кстати, всем интересующимся советую также заглянуть в начало текущей темы. |
Повтор, однако. Даже не думал, что может быть.
Вчера в личку скидывал скрипт. Пусть и тут будет:
| Code: | '===============================================
' Переименовать выделенные 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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
