[VB6] Runtime errore 55 nella creazione/apertura ripetuta di file di testo

[Cobrettis]

Sto creando un programma per creare e modificare i file.txt. Ho riscontrato un errore:
Nel evento click del command button scrivo questo codice:

Open App.Path & "\file.txt" For Output as #1
Print #1,Text1.text
Close #1

Ma non capisco il perchè mi da Run time error File already open. Ho fatto una ricerca su internet ma non ho trovato ciò che mi rispondeva. Ringrazio in anticipo.

[gibra]

Di norma, il numero del file deve essere richiesto al sistema con la funzione FreeFile, perchè se apri/chiudi velocemente file usando sempre lo stesso numero (1) puoi incappare nel problema:

Dim FileNum as Integer
FileNum = FreeFile

Open App.Path & "\file.txt" For Output as #FileNum

etc...

[Cobrettis]

Grazie mille Gibra. Posto la soluzione la quale me l'ha fornita Gibra.


Nel evento click del command button inserite questo codice qualora vi dovesse venire l'errore 55.

Dim file As Integer
file = FreeFile
Open "C:\prova.txt" For Output As #file
Print #file, "testo del messaggio"
Close #file

Potete chiudere la discussione. Grazie mille