Visual Basic 6 - commondialog vb6

Ciao a tutti, ho creato un blocco note con questo comando ma il problema che anche quando premo il tasto annulla, per annullare il salvataggio del file me lo crea ugualmente...

Sapete aiutarmi ?

Grazie

Ecco il codice del pulsante salva:

Private Sub XPButton1_Click()
CommonDialog1.FileName = "Note.txt"
CommonDialog1.Filter = "Text Files|*.txt"
CommonDialog1.ShowSave
Commondialog1.CancelError =False
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub

la risolvi con la gestione dell'errore cioè

On Error GoTo lbl_Error
dialog.CancelError = True
dialog.FileName = "Note.txt"
dialog.Filter = "Text Files|*.txt"
dialog.ShowSave


Open dialog.FileName For Output As #1
Print #1, "dfafdfa"
Close #1

dialog.CancelError = False
Exit Sub
lbl_Error:

dialog.CancelError = False
MsgBox "eee"
End Sub


modifica le stringhe con ciò che ti serve
spero sia ciò che ti serve

mm... piuttosto che usare il GoTo secondo me è meglio usare una semplice if poichè quando si preme annulla il valore di ritorno è "vuoto"

if commondialog1.filename <> "" then 'se è stato scelto un file...
open ...
end if

@GrG
quando si preme annulla il valore di ritorno è "vuoto", è valido solo la prima volta che si apre CommonDialog. Ma se si salva una prima volta con un nome, alla successiva chiamata è presente il nome e se si annulla filename <> "".

Come si fa a quotare il testo di un post precedente?

Ciao

Azz... Questo non lo sapevo O.o
Allora si dovrà utilizzare una variabile tipo:

dim path as string
commondialog1.showopen
if commondialog1.filename <> path then
'prosegui normalmente
path = commondialog1.filename
end if

Se vedi, in basso a destra di ogni post c'è il pulsante "quote" basta che premi quello...

Azz... son proprio ceco.

visto che lui imposta già il nome del file da salvare il filename sarà sempre uguale a qualcosa e se premi annulla sarà sarà sempre valorizzato...
per cui se primi annulla con la gestione dell'errore postato dal sottoscritto non t'importa se vi è ancora la scritta note o altro. Vedi che è stato premuto annulla per cui non t'importa altro