Dim fso As New FileSystemObject
Dim fi As File
Dim F As Integer
Dim sInhalt As String
 
F = FreeFile
 
For Each fi In fso.GetFolder("C:\edi\").Files
 
If UCase(Right(fi.Name, 3)) = "EDI" Then
 
 
'datei komplett einlesen
 
Open fi.Path For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F
 
End If
 
Next fi
 
 
 
 
txtEdi.Text = sInhalt