рабочий скрипт робокопии - PullRequest
Новая
       9

рабочий скрипт робокопии

0 голосов
/ 03 июня 2019

Украл несколько битов кода для создания моего собственного 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")
...