VB-Fout!? :S

[KaY.NL]

Hoi,

Waarom komt er in textbox1 geen "Dit is een test te staan"? Dit is mn code:

Private Sub CommandButton1_Click()

Dim test As String

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\\testfile1.txt", True)
a.WriteLine ("Dit is een test.")
test = a.ReadLine
a.Close

TextBox1.Text = test

End Sub

Groeten Kay

 

[beheer25]

Komt de regel wel in je bestandje?

Wat laat ie zien als je door de code heengaat m.b.v. de debugger?


Grtz,

 

[KaY.NL]

Ja, er het komt wel in het tekstbestandje te staan. En vb geeft de volgende foutmelding:

"Ongeldige bestandsmodus"

 

[Guus2005]

Je hebt het bestand geopend om te schrijven.

Sluiten en openen om te lezen.

Weest gegroet,
Guus

 

[KaY.NL]

Hoe kan ik openen om te lezen dan?

 

[Guus2005]

Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fspenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "Hello world!"
f.Close
End Sub

zoek met google op "FileSystemObject"

weest gegroet
guus

 

[KaY.NL]

Ow oke bedankt!