Probe de esta forma pero no se puede.
Dim a As Long
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
a = WinExec("cmd /c dir", 2)
Tenes algun buen texto sobre las API en general?
Dim a As Long
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
a = WinExec("cmd /c dir", 2)
Tenes algun buen texto sobre las API en general?