Con VB6 se metti un Button in una Form che su CLICK va a leggere il PATH di se stesso con
app.path
, quindi associa il PATH relativo al NomeFile.EXE da lanciare e passandolo a SHELL funziona tutto...!
In pratica passi il PATH comleto ad una Funzione come questa:
Public Sub ExecuteFile(FilePath As String)
'Esegue file
On Error GoTo error
Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath))
Exit Sub
error:
MsgBox Err.Description, vbExclamation, "Error"
End Sub