[VB6] Aprire un file tramite Shell {era: shell}

[meronet]

oh mio amato errore 53
non mi apparire più

[Sir Board]

Allora funziona??

[meronet]

magari !!!

[Sir Board]

Come magari.
Che tipo di problema ti da ora?

[meronet]

sempre errore 53

[Sir Board]

Senti prova con questa funzione:

'**************************** shell execute
Declare Function GetActiveWindow Lib "user32" () As Long
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
   

Public Sub RunFile(ByVal File$, FilePath$, RunStyle)
    ' SW_HIDE = 0
    ' SW_SHOWNORMAL = 1
    ' SW_NORMAL = 1
    ' SW_SHOWMINIMIZED = 2
    ' SW_SHOWMAXIMIZED = 3
    ' SW_MAXIMIZE = 3
    ' SW_SHOWNOACTIVATE = 4
    ' SW_SHOW = 5
    ' SW_MINIMIZE = 6
    ' SW_SHOWMINNOACTIVE = 7
    ' SW_SHOWNA = 8
    ' SW_RESTORE = 9
    Const MB_ICONSTOP = 16
    Dim temp As String
    Dim x
    
    temp = GetActiveWindow()
    x = ShellExecute(temp, "Open", File$, "", FilePath$, RunStyle)
    
End Sub


''Gestione database
Call RunFile("file.mdb", "c:\programmi\", 1)

[meronet]

non mi appare nulla

[meronet]

la funzione Call RunFile("file.mdb", "c:\programmi\", 1)
non mi fà apparire il file desiderato !!!

[Sir Board]

Inserisci il tuo codice.

[meronet]

senza utilizzare la tua funzione!!!