Textbox1.Text = sInhalt

Dim fso As New FileSystemObject
Dim fi As File
 
    For Each fi In fso.GetFolder("C:\Temp")
 
        If UCase(Right(fi.Name, 3)) = "EDI" Then
 
            'datei einlesen und anzeigen
 
        End If
 
    Next fi