[VB6] Variabile di input all'interno di un file

[OmarCore93]

Salve ragazzi. Ho fatto un codice semplice per scrivere una variabile caricata in input su un file ma il file viene creato ma risulta essere vuoto.

Dim Variabile As String 
Private Sub Command1_Click() 
Variabile = InputBox("Inserisci la variabile") 
Open "C:\Documents and Settings\Utente\Documenti\DATI.dat" For Output As #1
Do While Not (EOF(1)) 
Write #1, Variabile
Loop 
Close #1 
End Sub

Dove è l'errore? Il file .dat viene creato ma risulta sempre essere vuoto
Grazie in anticipo a chi mi aiuterà

[gibra]

Secondo me fare un loop su un file vuoto.... non esegue alcun loop.
Togli il loop, dovrebbe funzionare.

Poi valuta se è meglio usare Print piuttosto di Write perchè Write racchiude la stringa tra doppi apici, Print invece la stampa così com'è.

Variabile = InputBox("Inserisci la variabile") 
Open "C:\Documents and Settings\Utente\Documenti\DATI.dat" For Output As #1
Write #1, Variabile
Close #1

[optime]

togli il do...loop (che serve solo per la lettura!) e lascia solo la Write

[OmarCore93]

Grazie, ora sembra funzionare!
P.S. Sono alle prime armi con i File e non sapevo che il ciclo andava messo solo per la lettura

[gibra]

Originariamente inviato da OmarCore93
Grazie, ora sembra funzionare!
P.S. Sono alle prime armi con i File e non sapevo che il ciclo andava messo solo per la lettura

Un ciclo può essere usato anche per la scrittura, dipende da quante righe devi scrivere.

Ma tu stai aprendo un nuovo file, che quindi è vuoto, e non ha alcuna logica fare un ciclo... sul vuoto.