Potresti usare la funzione ShellExecute, nel seguente modo:
codice:Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As _ String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_NORMAL = 1 '--------------------------------------------- Private Sub Command1_Click() Dim X As Long X = ShellExecute(hWnd, "Open", "C:\programmi\NomeCartellaProgr\NomeProg.exe", vbNullString, vbNullString, SW_NORMAL) End End Sub![]()

Rispondi quotando