Public Sub StartS()
  Dim Dateien() As Datei
  StopSearch = False
  FindFile "C:\Windows\Media", True, "*.*", Dateien
 
  'Ergebnisliste in Form1.List1 ausgeben
  Form1.List1.Clear
  For I = 0 To UBound(Dateien)
    Form1.List1.AddItem Dateien(I).Pfadname & Dateien(I).Dateiname
  Next I
End Sub