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