Private Sub cmdDatlesen_Click()
Dim i As Integer
Dim Dnr As Integer
Dim EndHeader As String
Dim Textfeld As String
Dim Dateipfad As String
 
EndHeader = "End of Header"
Textfeld = txtDatname.Text
Dateipfad = "H:\Pfad\" & Textfeld
If Dateipfad <> "" Then
    Dnr = FreeFile
    i = 0
    Open Dateipfad For Input As Dnr
        Do While Not EndHeader & EOF(Dnr)  'Hier schaff ich es nicht der 
        ' Maschine klar zu machen dass beim EndHeader schluss sein soll.
            i = i + 1
            Line Input #Dnr, temp
            lblInhalt.Caption = lblInhalt & temp 'Label nur als Test, 
            ' eigentlich soll es in eine Neue Datei geschrieben werden.
        Loop
    Close #Dnr
 
Else
    MsgBox ("Datei nicht vorhanden")
End If

Geht nicht gibt es nicht!

www.WasDenktHarald.de.vu