Wait for Shell Call to Complete

Category:

System/API

Type:

Snippets

Difficulty:

Advanced

Author:

Mrugendra Bhure

Version Compatibility: Visual Basic 6

More information:

The following function provides a replacement for shell() function, the advantage is that it does not return until the command has finished its execution.

NOTE: Put this code in a module.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessID As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib _ "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds _ As Long) As Long Declare Function CreateProcessA Lib "kernel32" _ (ByVal lpApplicationName As Long, ByVal lpCommandLine As _ String, ByVal lpProcessAttributes As Long, ByVal _ lpThreadAttributes As Long, ByVal bInheritHandles As Long, _ ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, _ ByVal lpCurrentDirectory As Long, lpStartupInfo As _ STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) _ As Long Declare Function CloseHandle Lib "kernel32" (ByVal hObject _ As Long) As Long Private Const NORMAL_PRIORITY_CLASS = &H20& Private Const INFINITE = -1&

Code: