Txt File

[Oliver]

Hoi Kathrin.

Const ForReading = 1, ForWriting = 2
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadLineTextFile = MyFile.ReadLine
   MyFile.Close

So kannste Zeilenweise Text einlesen.

Gruss Oliver