Batya
|
 Posted: Wed Aug 23, 2006 13:04 Post subject: |
 |
|
Если в лоб, то можно с помощью скрипта:
| Code: | '==============================================================================
' Переименование выделенных файлов по файлу, содержащему новые имена
'
' В качестве параметров указать:
' %L {полный путь к файлу, содержащему новые имена}
'==============================================================================
Option Explicit
If WScript.Arguments.Count < 2 Then
MsgBox "Указаны не все параметры", _
vbOKOnly + vbExclamation, _
"Переименование файлов"
WScript.Quit
End If
Dim FSO, OTF1, OTF2, FilePath, NewName, oFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF1 = FSO.OpenTextFile(WScript.Arguments(0), 1)
Set OTF2 = FSO.OpenTextFile(WScript.Arguments(1), 1)
Do While (Not OTF1.AtEndOfStream) and (Not OTF2.AtEndOfStream)
FilePath = OTF1.ReadLine
NewName = FSO.GetBaseName(OTF2.ReadLine)
If FSO.FileExists(FilePath) Then
Set oFile = FSO.GetFile(FilePath)
oFile.Name = NewName & "." & FSO.GetExtensionName(FilePath)
End If
Loop
OTF1.Close
OTF2.Close
Set oFile = Nothing
Set OTF1 = Nothing
Set OTF2 = Nothing
Set FSO = Nothing
WScript.Quit |
Сохраняем, например, в %COMMANDER_PATH%\Utils\WHS\RenameFromFileList.vbs
1. Выделить srt-файлы и нажать кнопку:
| Code: | TOTALCMD#BAR#DATA
cmd /c copy
%F "%Pfilelist.txt"
%COMMANDER_PATH%\Icons\X-Qute.icl,30
Копирование имен файлов в файл-список
1
-1
|
В текщем каталоге будет создан файл filelist.txt со списком имен выделенных файлов.
2. Выделить avi-файлы и нажать кнопку:
| Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\WHS\RenameFromFileList.vbs
%L filelist.txt
%COMMANDER_PATH%\Icons\X-Qute.icl,34
Переименование файлов по списку
-1
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
