Как проверить копии файлов с использованием VBScript?

В. Как проверить копии файлов с использованием VBScript?

О. Операции копирования файлов можно проверить с использованием значения Err, а после копирования можно выполнить операцию FileExists, чтобы убедиться в существовании нового файла, как показано в приведенном ниже исходном тексте. Можно сохранить сценарий и передавать в качестве первого параметра имя папки и файла, и целевую папку в качестве второго параметра:

On Error Resume Next
Dim objFSO, sourceFile, targetFolder
set objFSO=CreateObject("Scripting.FileSystemObject")
set sourceFile = objFSO.GetFile(WScript.Arguments(0))
set targetFolder = objFSO.GetFolder(WScript.Arguments(1))
objFSO.CopyFile sourceFile, targetFolder
If Err.Number <> 0 Then 
   Wscript.Echo "File copy problem " & err.number, err.description
End If

При необходимости в сценарий можно ввести дополнительную логику и выполнять другие действия. Пример нормального выполнения сценария:

D:Temp>cscript copyfilecheck.vbs d: emplob.file g:data