Украл несколько битов кода для создания моего собственного robocopy зеркального скрипта через выбор папки.Код работает, но я думаю, что он может использовать некоторую очистку, есть кто-то, кто может объяснить, что нужно сделать, и объяснить немного?
Думая об обработке ошибок при ведении домашнего хозяйства и т. Д.
Set objShell = CreateObject("Shell.Application")
Set oSh = CreateObject("WScript.Shell")
Set objSource = objShell.BrowseForFolder(0, "Select Source", 0, myStartFolder)
Set objDestination = objShell.BrowseForFolder(0, "Select Target", 0, myStartFolder)
If IsObject(objSource) Then Source = objSource.Self.Path
If IsObject(objDestination) Then Target = objDestination.Self.Path
oSh.Run ("RoboCopy.Exe " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Target & Chr(34) & " /MT:16 /B /z /r:0 /w:0 /NDL /MIR /PF /TEE /NP /LOG+:.\log.txt")
MsgBox "Finished press OK for logfile"
oSh.Run ("notepad.exe .\log.txt")