Flasher
|
 Posted: Thu Nov 03, 2011 16:45 Post subject: |
 |
|
| Code: | '==============================================================================
' Копировать выделенные файлы при совпадении их полных имён с началом строк
' в файле-списке и переименовывать базовые имена копий в оставшиеся части строк
' Параметры: %F "<путь к файлу списку>" "<путь назначения>"
'==============================================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
FList = .Item(0)
NList = .Item(1)
Path = .Item(2)
If Right(Path, 1) <> "\" Then Path = Path & "\"
End With
With CreateObject("Scripting.FileSystemObject")
For Each F in Split(.OpenTextFile(FList).ReadAll, vbNewLine)
If F > vbNullString And .FileExists(F) Then
Ext = .GetExtensionName(F)
For Each Fn in Split(.OpenTextFile(NList).ReadAll, vbNewLine)
Fn = Trim(Fn)
If Fn <> "" And Left(Fn, Len(F)) = F Then _
.CopyFile F, Path & LTrim(Mid(Fn, InStrRev(Fn, vbTab)+1)) & "." & Ext
Next
End If
Next
End With |
Last edited by Flasher on Thu Nov 03, 2011 20:02; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
