Forum: Visual Basic |
Thema:
Re: textdatei auslesen und in textbox schreiben |
Von:
Rainer Jeschor (
11.02.2004 10:47) |
Hi,
folgender Code funktioniert:
Dim fso As Scripting.FileSystemObject
Dim fsoStream As Scripting.TextStream
Set fso = New Scripting.FileSystemObject
Set fsoStream = fso.OpenTextFile("E:\Test.txt", ForReading, False)
Do Until fsoStream.AtEndOfStream
Me.txtOutput.Text = Me.txtOutput.Text & fsoStream.ReadLine & vbCrLf
Loop
Du musst nur den Verweis auf die Microsoft Scripting Runtime setzen.
HTH,
Rainer Jeschor
MCSD, MCDBA
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!