Inhalt einer Textdatei in Textfeld einlesen

Um den Text einer Textdatei in ein Textfeld einlesen und anzeigen zu lassen kann man nachfolgenden Code anwenden. Zuerst erstellt man eine Funktion in einem Modul, die man als Public deklariert:
Public Function LoadText(ByVal FileName As String) As String Dim F As Long, L As String, Res As String F = FreeFile Open FileName For Input As #F While Not EOF(F) Line Input #F, L Res = Res & L & vbNewLine Wend Close #F LoadText = Res End Function
Der Aufruf der Function erfolgt dann in einem Formular, z.B. im Ereignis „Form load“:
Private Sub Form_Load() Me!Textfeld1 = LoadText("c:meinText.txt") End Sub
Sie können auch den Pfad und Namen der Textdatei in einer Tabelle stehen haben, verwenden Sie dann ein Recordset um den Pfad und Namen zu erhalten oder die DLookup() Funktion.
AV 2008