Datei auslesen

[thomson]

Hiiilfe!
Muss den Inhalt einer Dateiauslesen, kann mir jemand helfen wie das geht ?

 

[MAN]

Mit folgendem Code kannst du den gesamten Inhalt einer Datei in eine Variable (strText) einlesen und per MessageBox ausgeben lassen:

Dim strText As String
Dim strInput As String

Open "C:\DeinPfad\DeineDatei.txt" For Input As #1
   Do Until EOF(1)
      Line Input #1, strInput
      strText = strText & strInput & vbCrLf
   Loop
Close #1

MsgBox "Text in Datei: " & vbCrLf & vbCrLf & strText

mfG,
MAN