실행 방법 동기화 vbscript

Question

문제가 있습니다. Vbscript (하나의 Run 메서드, 하나 삭제 및 moveFile 하나) 내 루프에 모든주기에 몇 가지 동기화 된 명령을 던질 필요가. 내가 어떻게하는지 모르겠다.

Public Function UnificarCRIs(ByVal path, ByVal FICRIEC, ByVal sessio, ByVal CIBAA) 
    Dim objFile, objCurrentFolder, filesys, origenFitxers 
    Dim FileName, WshShell 

    On error resume next 

    Set filesys = CreateObject("Scripting.FileSystemObject") 
    Set WshShell = WScript.CreateObject("WScript.Shell") 
    Set objCurrentFolder = filesys.getFolder(path) 

    For Each objFile In objCurrentFolder.Files 
     FileName = objFile 
     If (right(FileName, 4) = ".cri") Then 
      If filesys.FileExists(path & FICRIEC & sessio) Then 
       'WshShell.Run ("copy " & path & FICRIEC & sessio & "+" & FileName & " " & path & FICRIEC & sessio & "_tmp") 
       WshShell.run ("cmd /K " & "copy /Y " & path & FICRIEC & sessio & "+" & FileName & " " & path & FICRIEC & sessio & "_tmp",8,TRUE) 
       Set WshShell = Nothing 
       filesys.DeleteFile path & FICRIEC & sessio 
       'filesys.MoveFile path & FICRIEC & sessio & "_tmp", path & FICRIEC & sessio 
      Else 
       WshShell.run "cmd /K " & "copy /Y " & FileName & " " & path & FICRIEC & sessio,8,TRUE 
       Set WshShell = Nothing 
      End If  
     End If 
    Next 

End Function 

Answer 1

가 docs for .Run완전히을 읽고 bWaitOnReturn 매개 변수에 반영 :

내 코드는 것입니다.

사과 :

미안 해요, 난 조심스럽게 충분한 코드를 읽을하지 않았다. .Run은 기다려야합니다. 그러나 나는 당신이 무슨 일 때 그 실수를 제거

WshShell.run ("cmd /K " & "copy /Y " & path & FICRIEC & sessio & "+" & FileName & " " & path & FICRIEC & sessio & "_tmp",8,TRUE) 

에서 글로벌 On Error Resume Next 및 PARAM 목록()를 사용하는 것을 볼? 루프를 통해 두 번째 패스에 WshShell을 사용할 수 있습니까?