Dim sPath As String
Dim sFile As String
 
sPath = "Pfad_zum_Ordner"
sFile = Dir$(sPath)
Do While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    Text1.Text = Text1.Text & sFile & vbCrLf
  End If
  sFIle = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de