[ VB6 ] aprire un file senza saperne la tipologia...

[superesse]

Mi spiego meglio....
ho una list view con dentro caricati vari path di n file associati ad un utente.....

sul doppio click vorrei aprire il file tramite il programma a lui associato da windows..

come posso fare?

in precedenza usavo la shell ma lanciavo sempre notepad.exe per aprire dei file di log....qui potrei avere di tutto...dai .doc ai .zip dai .jpeg ai .pdf

Qlc può darmi una dritta?

[raffaeu]

Ma se non sbaglio se tu lanci un file nella Shell sarà poi Winzzoz a aprire il programma delegato se esiste.
Hai provato?

[superesse]

si ho provato ma mi da errore e non apre il file...
credo che la shell voglia l'exe...

[raffaeu]

Molti domandano come aprire un file esterno, associato ad un qualunque programma, da Visual Basic.

In un modulo dichiariamo la seguente funzione:

 
Public 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 Const SW_NORMAL = 1

A questo punto dalla vostra applicazione richiamate il file che volete aprire come segue:

Dim X As Long
X = ShellExecute(hWnd, "Open", "C:\nomecartella\nomefile.doc", vbNullString, vbNullString, SW_NORMAL)

In questo caso si apre direttamente un documento di Word. Con lo stesso sistema potere aprire una pagina Internet o inviare una mail.

 
Dim X As Long
X = ShellExecute(hWnd, "Open", "http://www.maurorossi.net", vbNullString, vbNullString, SW_NORMAL)

'oppure

 
Dim X As Long
X = ShellExecute(hWnd, "Open", "mailto:rossimt@sistel.it?subject=Prova&body=Testo da inviare", vbNullString, vbNullString, SW_NORMAL)

Con lo stesso metodo potete anche lanciare un exe, o un file di qualunque estensione.
(Il quarto parametro è per gli eventuali comandi della riga di comando, il quinto per la directory di origine, in questo caso sono entrambi nulle).

[Brainjar]

Prova con ShellExecute.

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


Sub Command1_Click()
  Dim nRet As Long
  ' Al posto di c:\locandine.pdf metti il nome del tuo pdf 
  nRet = ShellExecute(Me.hwnd, "OPEN", "PathNameDelFileDaAprire", vbNullString, 0&, 2)
End Sub

Ciao,

[Brainjar]

Scusate, quasi in contemporanea.

Ciao,

[superesse]

grazie a tutte e due...era proprio la shellexecute.....

thx

[raffaeu]

... e che la forza sia con te!!