Option Explict
Const PFAD = "c:\test.txt"
Dim FSO, TxtDatei, i, Zeile
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TxtDatei = FSO.CreateTextFile(PFAD, True)
For i = 1 To 10
  TxtDatei.WriteLine("Dies ist ein Test." & Chr(0) & i)
Next
 
'Liest die Datei zeilenweise ein
Set TxtDatei = FSO.OpenTextFile(PFAD, 1)
Do Until txtDatei.AtEndOfStream 
  Zeile = Replace(TxtDatei.ReadLine, Chr(0), "")
  Wscript.Echo Zeile
Loop
 
'Liest die Datei komplett ein
Set TxtDatei = FSO.OpenTextFile(PFAD, 1)
Wscript.Echo Replace(TxtDatei.ReadAll, Chr(0), "")
TxtDatei.Close