Creazione e modifica file TXT

[MbEnjoy]

Ciao di nuovo..

Come posso creare un file TXT e far scrivere all' interno di esso parole prese da un campo TEXT1 ( e via fino a 8 ke mi servono ) di una form attiva ?
Cioè vorrei ( se guardate la figura ) , ke tutto querllo ke è scritto nelle varie form da parte dell' utente finale venga poi riportato in un file di testo...

Ps. scusate la qualità infima , ma senno' nn me lo uppava

Grazie a tutti !

[Sonic88]

Prova questo:

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\Nome.txt", ForWriting, True)
f.WriteLine Text1.Text
f.WriteLine Text2.Text
f.WriteLine Text3.Text
f.WriteLine Text4.Text
f.WriteLine Text5.Text
f.WriteLine Text6.Text
f.WriteLine Text7.Text
f.WriteLine Text8.Text
f.Close
Set f = Nothing
Set fs = Nothing

[MbEnjoy]

provo subitissimo , grazie!!!

[MbEnjoy]

mm.. mi dà errore sulla linea

Set f = fs.OpenTextFile("C:\Registrazione.txt", ForWriting, True)

ke posso fà ? Scusa ma sono veramente nuovo di queste cose

[Sonic88]

Originariamente inviato da MbEnjoy
mm.. mi dà errore sulla linea

Set f = fs.OpenTextFile("C:\Registrazione.txt", ForWriting, True)

ke posso fà ? Scusa ma sono veramente nuovo di queste cose

Strano!
Che errore ti dà?

[MbEnjoy]

chiamata di outin o argomento nn valido ( 5 )

[Sonic88]

Sei sicuro di aver scritto il codice correttamente? A me funziona benissimo in VB6.

[MbEnjoy]

mmm.. ho fatto copia incolla

[iguana13]

Forse hai Option Explicit e non hai dichiarato prima f come:

Dim f as Object

[Sonic88]

Prova con questa piccola modifica (anche se è molto strano quell'errore)

dim fs as new FileSystemObject
Set f = fs.OpenTextFile("C:\Nome.txt", ForWriting, True)
f.WriteLine Text1.Text
f.WriteLine Text2.Text
f.WriteLine Text3.Text
f.WriteLine Text4.Text
f.WriteLine Text5.Text
f.WriteLine Text6.Text
f.WriteLine Text7.Text
f.WriteLine Text8.Text
f.Close
Set f = Nothing
Set fs = Nothing

Prima di eseguire il programma però devi aggiungere il riferimento a Microsoft Scripting Runtime.