Visual Basic 6 - maledetti commondialog 2

ciao a tutti, mi sapreste dire come far funzionare dei maledettissimi commondialog?

ecco il mio codice

dim nuovo as variant
Private Sub mnusave_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt,*.rtf)| *.txt; *.rtf |Tutti i File (*.*)| *.*"
cd1.ShowSave
nuovo = cd1.FileName
Open nuovo For Output As #1
Print #1, txt
Close #1
If cd1.FileName <> vbNullString Then
 'qui ke metto?
End If
End Sub

dove la scritta "qui ke metto", mi dovreste dire cosa mettere...

grazie

Allora io per evitare ke quando si preme annulla non dia errore faccio:

Dim nuovo As Variant
Private Sub mnusave_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt,*.rtf)| *.txt; *.rtf |Tutti i File (*.*)| *.*"
cd1.ShowSave
nuovo = cd1.FileName
if nuovo <> "" then
Open nuovo For Output As #1
Print #1, txt
Close #1
end if
End Sub

Quindi esegue il resto del codice solo se il nome del file non è vuoto, cosa che accade invece quando si fa annulla...

+ o - hai capito?

diciamo di si

ok, e grazie grg

6 il ++++migliore

asd, non esageriamo, ci sono molti + bravi di me, ma in questo forum (in visual basic) sono abbastanza preparato come anche Paperoga (lui un pò + di me). Anche se ricordo che c'era Gantonio ad esempio che mi ha ftt quasi da "maestro"...forse è attivo nella sezione C++ ora, non so

cm si fa per aprire file?

io faccio così, ma nn mi funziona

Private Sub mnuapri_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt)| *.txt |WordPad Document (*.rtf) |*.rtf |Tutti i File (*.*)| *.*"
cd1.ShowOpen
nuovo = cd1.FileName
Open nuovo For Output As #2
txt.Text = Input(LOF(1), #2)
Close #2
If nuovo <> "" Then
Open nuovo For Output As #2
Print #2, txt
Close #2
End If
End Sub

dimmi dove sbaglio...

grazie

Private Sub mnuapri_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt)| *.txt |WordPad Document (*.rtf) |*.rtf |Tutti i File (*.*)| *.*"
cd1.ShowOpen
nuovo = cd1.FileName
Open nuovo For Output As #2
txt.Text = Input(LOF(1), #2)
Close #2
If nuovo <> "" Then
Open nuovo For Output As #2
Print #2, txt
Close #2
End If
End Sub

Vedi la scritta in grassetto? Si è output, ecco è li il problema perchè se vuoi leggere un file si usa INPUT quindi diventerà:

Private Sub mnuapri_Click()
cd1.FileName = vbNullString
cd1.Filter = "File di testo (*.txt)| *.txt |WordPad Document (*.rtf) |*.rtf |Tutti i File (*.*)| *.*"
cd1.ShowOpen
nuovo = cd1.FileName
Open nuovo For Input As #2
txt.Text = Input(LOF(1), #2)
Close #2
If nuovo <> "" Then
Open nuovo For Output As #2
Print #2, txt
Close #2
End If
End Sub

Ma c'è un'altro problema (segnalato in grassetto) è LOF(1), perchè LOF(1) non va bene?
Perchè siccome apri il file con il numero 2 cioè
... as #2
si mette 2 e non 1...
capito?

grazie grg

ora va

però solo per file txt,


per file bat, o altro cm si fa?

Vale per tutti i tipi di file la Open -.-...
Magari googla un pò...