Flasher
|
 Posted: Sat Mar 01, 2014 19:55 Post subject: |
 |
|
Тут всё проще: | Code: | '===============================================================
' Замена одноимённых файлов в структуре каталога целевой панели
' с запросом на перезапись
' Параметры: %V "%T" [<запрос на перезапись: 1>]
'===============================================================
With WScript.Arguments
File = .Item(0) : Path = .Item(1)
If .Count = 3 Then Query = .Item(2)
End With
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(File) And FSO.FolderExists(Path) Then
FName = FSO.GetFileName(File) : FFolder FSO.GetFolder(Path)
End If : Set FSO = Nothing : WScript.Quit
Sub FFolder(Folder)
F = Folder.Path & "\" & FName
If FSO.FileExists(F) Then
M = 6
If Query = 1 Then M = MsgBox("Перезаписать файл " & F & " ?", 36)
If M = 6 Then FSO.CopyFile File, Folder.Path & "\"
End If : For Each Fd In Folder.SubFolders : FFolder Fd : Next
End Sub |
Можно, конечно, добавить сравнение по размеру/хэшу, если совсем приспичит.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
