Private Sub m_fsw_Created(sender As Object, e As _
    System.IO.FileSystemEventArgs) Handles m_fsw.Created
 
        xxTemp = e.Name
        Dim FileNr1 As Integer
        Dim DateiName1 As String = "-"
        Dim DateiName2 As String = "-"
        Dim DateiPlzOrt As String = "-"
        Dim DateivonTeilnehmer As String = "-"
        Dim CallerDateiString As String = "c:\Test\" & xxTemp
 
        If File.Exists(CallerDateiString) Then
            FileNr1 = FreeFile()
            FileOpen(FileNr1, CallerDateiString, OpenMode.Input)
            PhoneDateiKundenID = LineInput(FileNr1)
            DateiName1 = LineInput(FileNr1)
            DateiName2 = LineInput(FileNr1)
            DateiPlzOrt = LineInput(FileNr1)
            DateivonTeilnehmer = LineInput(FileNr1)
            FileClose(FileNr1)
 
            Label37.Text = DateivonTeilnehmer
            Label40.Text = DateiName1
            Label46.Text = DateiName2
            Label50.Text = DateiPlzOrt
            Panel3.Visible = True
            End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist