Zu diesem Beispiel hab ich mal eine kleine Frage. Erstam der Code:
Code: Alles auswählen
Procedure sucheMusikdateien(pfad.s, List Liste.s(), typ.s="mp3,wma,wav")
PathAddBackslash_(@pfad) ; Hängt Backslash an, falls nötig
Protected dir=ExamineDirectory(#PB_Any, pfad, ""), n
If dir
While NextDirectoryEntry(dir)
If DirectoryEntryType(dir) = #PB_DirectoryEntry_File
For n=1 To CountString(typ, ",")+1
If StringField(typ, n, ",") = LCase(GetExtensionPart(DirectoryEntryName(dir)))
AddElement(Liste())
Liste()=pfad+DirectoryEntryName(dir)
Break
EndIf
Next
Continue
ElseIf DirectoryEntryName(dir) <> "." And DirectoryEntryName(dir) <> ".."
sucheMusikdateien(pfad+DirectoryEntryName(dir), Liste(), typ)
EndIf
Wend
FinishDirectory(dir)
EndIf
EndProcedure
NewList MeineMucke.s()
sucheMusikdateien("C:\Dokumente und Einstellungen\Admin\Eigene Dateien\", MeineMucke())
ForEach MeineMucke()
Debug MeineMucke()
Next