0

所以我有一个 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
4

1 回答 1

0

文件写入被缓存。

右键单击驱动器-属性-硬件选项卡-选择您的驱动器并单击属性按钮,然后单击策略选项卡并清除复选框。

BITS 在后台从 Internet 下载文件,例如 Windows 更新。

于 2015-02-06T22:39:03.497 回答