所以我有一个 VBScript 来复制一个文件夹。我注意到,因为我正在进行计时赛,脚本结束后副本似乎在后台继续。
我认为正在发生的事情是,当最后一个要复制的文件开始时,脚本存在......而不是当最后一个文件完成复制时。
我认为这是由 Windows 中的 BITS 服务引起的。如果我想要准确的计时赛,我需要禁用或写入什么来确保计时赛是从头到尾的?
这就是我所拥有的
Sub CopyDirs( fromFolder, toFolder )
Dim oFSO
Dim c_folder, c_File, subFolder
Set oFSO = CreateObject( "Scripting.FileSystemObject" )
Set c_folder = oFSO.GetFolder( fromFolder )
If Not( oFSO.FolderExists( toFolder ) ) Then
oFSO.CreateFolder toFolder
End If
For Each c_File In c_folder.Files
If Not( oFSO.FileExists( toFolder & "\" & c_File.Name ) ) Then
oFSO.CopyFile c_folder.Path & "\" & c_File.Name, toFolder & "\" & c_File.Name
End If
Next
For Each subFolder In c_folder.SubFolders
If Not( oFSO.FolderExists( toFolder & "\" & subFolder.Name ) ) Then
oFSO.CreateFolder toFolder & "\" & subFolder.Name
End If
CopyDirs subFolder.Path, toFolder & "\" & subFolder.Name
Next
End Sub