[vb6] Creare file txt

[omnialatino]

Come creare un file txt dopo aver inserito tutti i dati nei vari campi?

[skeleton]

tu vuoi creare un txt da una stringa che hai già elaborato vero?

[ladyBlu]

Avevi già aperto questa: http://forum.html.it/forum/showthrea...hreadid=607080

tuttavia invece di chiudere questa ho chiuso l'altra per via del titolo, che almeno qui è giusto.

[biifu]

Dim fso
dim tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
   ' Write a line with a newline character.
   tf.WriteLine("Testing 1, 2, 3.") 
   ' Write three newline characters to the file.        
   tf.WriteBlankLines(3) 
   ' Write a line.
   tf.Write ("This is a test.") 
   tf.Close

[omnialatino]

Io ho qst codice:

Private Sub Command1_Click()
Dim fs As Object, f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateObject("C:\windows\desktop\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.Close
Set f = Nothing
Set fs = Nothing
End Sub

e ho anche cinque textbox con il command però mi dà errore la riga Set f = fs.....
Come posso fare?

[biifu]

ehm.... se ci riveli anche l'errore....

[Melly]

puoi anche fare un

open percorsoenomefile for output(o append) as 1#

print #1, Text1.Text
print #1, Text2.Text
print #1, Text3.Text
print #1, Text4.Text
print #1, Text5.Text
se il file non c'è te lo crea in automatico

[omnialatino]

Mi dice "Errore di run-time '438'"
"Propietà o metodo non supportati dall'oggetto"
La riga è questa:
Set f = fs.CreateObject("C:\windows\desktop\Nome.txt", ForWriting, True)"

[omnialatino]

for Melly - Mi crea il file ma dentronon c'è niente

[MMarzia]

devi utilizzare il metodo CreateTextFile, non CreateObject

Set f = fs.createtextfile("C:\windows\desktop\Nome.txt", ForWriting, True)