[Vb6]Simulare doppio click

[andrex213]

ciao raga

ho la necessità di aprire da visulabasic dei file esterni.

in pratica dovrei simulare il doppio click per fare in modo che quei file si aprino con le applicazioni associate.

mi passate qualche dritta?

[MItaly]

Metti in un modulo questo:

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
Private Const SW_NORMAL = 1
Public Sub ExecFile(ByVal fileName As String)
    Dim ret As Long
    ret = ShellExecute(0, "open", fileName, vbNullString, vbNullString, SW_NORMAL)
    If ret<=32 Then
        Err.Raise 51, "ExecFile", "Impossibile eseguire il file """ & fileName & """." & vbCrLf & "Codice di errore di ShellExecute: " & LTrim(CStr(ret))+"."
    End If
End Sub

, quindi per aprire un file usa ExecFile.

[andrex213]

grazie

[andrex213]

ulteriore domanda.

per chiuderlo anticipatamente con un timer?

come termino ExecFile?

[MItaly]

Intendi dire chiudere l'applicazione che hai avviato in questa maniera? Non è possibile, o almeno, non facilmente.