[Vb 6]CommonDialog---Apri /Salva

[rs125]

salve ragazzi,sono nuovo su questo campo di programmazione e volevo sapere una cosetta riguardo le commonDialog di vb6.

Questo è il codice:

Private Sub SmApri_Click()
Dim NomeDelFile As String
CommonDialog1.Filter = "File di testo (*.txt)|*.txt|Tutti i file (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
CommonDialog1.Flags = cdlOFNAllowMultiselect
CommonDialog1.Flags = cdlOFNExplorer
NomeDelFile = CommonDialog1.FileName
End Sub

Sto facendo vari tentativi ma non riesco a far aprire i vari file con i programmi appropriati. Come posso fare?mi date una mano?Grazie

[oregon]

Ma tu cosa vuoi fare?

Il controllo CommonDialog non serve ad aprire o eseguire file ma solamente a scegliere un nome di file su cui operare in seguito ...

[rs125]

Ciao,volevo scegliere un file per poterlo aprire con il proprio editor,tipo un gestione risorse,mi capisci?si può fare??

[oregon]

Con il proprio editor? Ovvero?

[MItaly]

http://forum.html.it/forum/showthrea...5#post11501935

[rs125]

Grazie,il codice potrebbe essere quello però non so farlo funzionare...cmq con il proprio editor intendevo dire che ogni file si apre con il proprio programma...capito ora?
Come posso fare?

[MItaly]

Scusa, in quel post ci sono istruzioni per filo e per segno... che difficoltà incontri?

[oregon]

Originariamente inviato da rs125
... ogni file si apre con il proprio programma...capito ora?

Se lo dici così, si capisce ...

Il codice ti e' gia' stato mostrato ...

[rs125]

Nel mio caso(posto di nuovo il codice):

Private Sub SmApri_Click()
Dim NomeDelFile As String
CommonDialog1.Filter = "File di testo (*.txt)|*.txt|Tutti i file (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
CommonDialog1.Flags = cdlOFNAllowMultiselect
CommonDialog1.Flags = cdlOFNExplorer
NomeDelFile = CommonDialog1.FileName
End Sub

Questo codice(in basso quello che mi avete segnalato) come lo unisco?ho provato e mi da errore,devo creare un modulo.bas?

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

Ps:mi correggo,non mi da errore,ma quando clicco su apri mi apre i documenti(su WinVista).Se faccio tasto destro apri invece è tutto normale,perchè??

[oregon]

Certo ... devi inserire il codice in un modulo e richiamare quella funzione dal tuo codice passando il nome del file ...