'Hallo Georg...
'hier eine Lösungsmöglichkeit wie Sie einen bestimmten Ordner nach einem 
' bestimmten
'Dateitypen (in ihrem Fall nach .txt Dateien) durchsuchen lassen können, und 
' das Ergebnis
'in einer ListBox anzeigen können. Passen Sie zum Testen den Testpfad Ihrem 
' System an.
'
 
Private Sub Command1_Click()
    Dim nFiles  As String
    Dim k       As Long
    Dim Folder  As String
    Folder = "c:\win98\"
    k = 0
 
    List1.Clear
    nFiles = Dir("C:\win98\" & "*.txt", vbArchive + vbHidden + vbSystem + _
      vbReadOnly)
    Do While nFiles <> ""
        List1.AddItem LCase(Folder & nFiles)
        nFiles = Dir
        k = k + 1
        Debug.Print k & " Dateien gefunden..."
    Loop
End Sub
 
'MfG
'Frank