Werty666
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет. Помогите подправить скрипт "AutoMultiRename2.vbs"
Option Explicit
Dim FSO, ListFile, CurrentFile, FileName, FilePath, NewFileName
If WScript.Arguments.Count = 0 Then
MsgBox "Параметры кнопки не заданы!", vbOKOnly + vbExclamation, "Внимание!"
WScript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
NewFileName = WScript.Arguments(1)
Do While Not ListFile.AtEndOfStream
Set CurrentFile = FSO.GetFile(ListFile.ReadLine)
FileName = FSO.GetBaseName(CurrentFile)
FilePath = CurrentFile.ParentFolder
If Not FSO.FileExists(FilePath & "\" & NewFileName) Then
FSO.MoveFile CurrentFile, FilePath & "\" & NewFileName
Else
MsgBox "Файл """ & NewFileName & """ уже существует в папке """ & FilePath & """", vbOKOnly + vbExclamation, "Внимание!"
End If
Loop
Set FSO = Nothing
Set ListFile = Nothing
Set CurrentFile = Nothing
Wscript.Quit
задача - не менять расширение, оставляя как есть и изменять регистр (если начинается со строчной а я переименовываю с тем же именем но с заглавной - не получается) |
Не то, чтобы очень сильно было надо, но интересно же...