Rodny
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: '==============================================================================
' Переименовать файл (выделенную группу файлов в разных папках)
' заданным образом без дополнительных окон и вопросов
' http://forum.ru-board.com/topic.cgi?forum=5&topic=33904&start=3120#8
'
' Параметры для кнопки:
' %L "новое имя файла"
'
' Rodny (с)
'==============================================================================
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 |
? Код создан и опубликован с помощью SciTE-Ru
Пример кнопки:
Код: TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Scripts\AutoMultiRename2.vbs
%L "folder.jpg"
C:\Windows\System32\WScript.exe,2
AutoMultiRename2
-1
|
|
Всего записей: 2877 | Зарегистр. 28-07-2006 | Отправлено: 19:44 16-09-2011 | Исправлено: Rodny, 19:50 16-09-2011 |
|
