GetExitCodeProcess lpShellExInfo.hProcess, ExecCmd fMask = SEE_MASK_DOENVSUBST Or SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_IDLISTĭo While WaitForSingleObject(lpShellExInfo.hProcess, vnTimeOut) = WAIT_TIMEOUT

Public Function ExecCmd(ByVal vsCmdLine As String, Optional ByRef vsParameters As String, Optional ByRef vsCurrentDirectory As String = vbNullString, Optional ByVal vnShowCmd As Long = SW_SHOW, Optional ByVal vnTimeOut As Long = 200) As Long Public Declare PtrSafe Function WaitForSingleObject Lib 'kernel32.dll' (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Public Declare PtrSafe Function ShellExecuteEx Lib 'shell32.dll' (ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long Public Declare PtrSafe Function GetExitCodeProcess Lib 'kernel32.dll' (ByVal hProcess As Long, ByRef lpExitCode As Long) As Long Public Declare PtrSafe Function CloseHandle Lib 'kernel32.dll' (ByVal hObject As Long) As Long Public Const SEE_MASK_NOCLOSEPROCESS As Long = &H40 Public Const SEE_MASK_IDLIST As Long = &H4 Public Const SEE_MASK_DOENVSUBST As Long = &H200 When I use it I get no error but nothing happens.Ĭan anyone help ? Either by showing me whats wrong or suggesting a better way to do the same. I migrated to access 2013 and after a few code adaptations, the DB works, except this function ExecCmd. I used to be able to run command lines running external programs (like exiftool or image magick) with the function below in my access 2007 db.

Access 2013 64 bit