Dim sFile As String
Dim sPath As String
 
' Ordner
sPath = "c:\ordner\"
 
' alle *.txt Dateien in eine ListBox einlesen
sFile = Dir$(sPath & "*.txt")
Do While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    List1.AddItem sFile
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de