Dim No As Integer, sLine As String
No = FreeFile ' Nummer für den Dateizugriff reservieren
Open "C:\MeineDatei.txt" For Input As #No
While Not Eof(No)
  Line Input #No, sLine
  MsgBox(sLine)
Loop
Close No ' Datei wieder zumachen

Dim No As Integer
No = FreeFile
Open "C:\MeineDatei.txt" For Output As #No
Print #No, "Zeile 1"
Print #No, "Zeile 2"
' ...
Close No

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.