Werty666
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ребята, вот у меня есть кнопка, для переименования файла по шаблону с таким скриптом 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
~~~~~~~~~~~~~~~~~~~
как поправить скрипт, что бы переименовывал не только файлы но и директории, тупо заменить File на Folder, наверное не поможет)))
|
Предлагаю заглянуть в истории предыдущих версий. Например, для 7.0 приватных и публичных версий было в общей сложности за пятьдесят (из них одних только альфа-версий — 15 штук). И продолжалось это тестирование год с лишним (а сейчас прошло меньше 5 месяцев). И дальше немедленно пошли минорные версии с продолжением исправлений... 
