[VB6] Creare un file di testo (.txt)

[StegcO]

Voi direte.. usa il SEARCH! ma io ho già cercato e ho trovato sempre le solite 3 righe

open
print
close

che però non riesco a far funzionare, io vorrei che il mio programma, cliccando su un CMD faccia

crea file
apre file
scrive file
chiude file
visualizza file

per ora ho fatto

Open "C:\Documents and Settings\" & Environ("USERNAME") & "\Desktop\TEST.txt" For Output As #1

Print #1, "1"
Print #1, "2"
Print #1, "3"

Close #1

'per visualizzarlo?

grazie per le future info


RISOLTO:

dimRetVal
RetVal = Shell("notepad C:\Documents and Settings\" & Environ("USERNAME") & "\Desktop\TEST.txt", vbNormalFocus)
AppActivate RetVal

[MdE2005]

Ma se lo volessi visualizzare in una textbox per esempio?

Ci sono tantissimi modi, uno dei + facili è certamente questo:

ff = Freefile
open tuofile for input as #ff
do while eof(ff)= false
line input #ff, linea
testo = testo & linea
until
close #ff
textbox.text = testo

Ho scritto senza VB, quindi è possibile che vi sia qualche imprecisione..

Ciao