Dateinamen auslesen

[sobi]

Mit welchen Befehl komme ich weiter, dass ich einen unbekannten Dateinamen aus einem Ordner auslese? (z.b. alle Datein, die mit *.zip enden)

[#NULL]

Code: Alles auswählen

dir.s="e:\_aaa\"
If ExamineDirectory(0, dir.s, "*.zip")
  While NextDirectoryEntry(0)
    Debug dir+DirectoryEntryName(0)
  Wend
EndIf

[sobi]

Code: Alles auswählen

dir.s="e:\_aaa"
If ExamineDirectory(0, dir.s, "*.zip")
  While NextDirectoryEntry(0)
    Debug dir+DirectoryEntryName(0)
  Wend
EndIf

Oh, optimal... vielen Herzlichen Dank...