Methods 同步运行方法vbscript

我有个问题。我需要在每个循环中向我的循环抛出vbscript中的一些同步命令（一个运行方法、一个删除方法和一个移动文件）。我不知道我是怎么做到的

我的代码是：

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

完整阅读并思考

bWaitOnReturn

参数

道歉：

对不起，我没有仔细阅读你的代码。运行应该等待。但我看到您在错误恢复下一步中使用了全局

，在

当你消除这些错误时会发生什么？您确定在第二次循环中有一个可用的
WshShell
？
我已经阅读了.Run和bWaitOnReturn参数的文档，我认为我做得很好。我的方法是：WshShell.run“cmd/K”和“copy/Y”&路径和名称文件输入1“+”&路径和名称文件输入2&&&路径和名称文件输出1，我发现了错误。我已经删除了“下一步继续出错”和“设置WshShell=Nothing”，它正在工作！谢谢-D
WshShell.run ("cmd /K " & "copy /Y " & path & FICRIEC & sessio & "+" & FileName & " " & path & FICRIEC & sessio & "_tmp",8,TRUE)