Public Function testUwscA() Dim ShellObject As Object Set ShellObject = CreateObject("WScript.Shell") Dim a$ a$ = CurrentProject.path & "\uwsc\test.bat" ShellObject.Run a, 1, 1 Debug.Print "end" End Function Public Function testUwscB() Dim a$ a = CurrentProject.path & "\uwsc\uwsc.exe " & CurrentProj…