SHELL (Dos Batch)

[sflau]

I am using VB 6, want to execute a dos batch file, then, I use:

Shell "UPLOAD.BAT"

But I find that it will only call the batch file, without finish it, it will return to the program immediately, how can the program know whether this command is finished or not?

 

[SonOfEmidec1100]

Many similar question threads already exist on this subject, one or more of them will tell you this.

Dim oShell As Object
Dim nRet As Long

Set oShell = CreateObject("WSCript.shell&quot
nRet = oShell.Run("upload.bat", , TRUE)
Set oShell = Nothing

TRUE says wait for completion, FALSE will produce your current situation.

 

[sflau]

Thank you, I get it.

 

[sflau]

Finally, I use API as the following code:

Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Public Declare Function OpenProcess Lib "kernel32" (ByVal fdwAccess As Long, ByVal fInherit As Boolean, ByVal IDProcess As Long) As Long

strShellCommand = App.Path & "\TEST.BAT"
lngExecOK = Shell(strShellCommand)
lProcessHandle = OpenProcess(&H100000, True, lngExecOK)
lReturnValue = WaitForSingleObject(lProcessHandle, 60000 * 60)

Thank you.

 

[SonOfEmidec1100]

Just to be tidy maybe you should also close the handle afterwards - CloseHandle lProcessHandle.

Anyway glad it works for you.

 

[sflau]

Thank you.