[SOLVED] ExamineDirectory() mehrere Pattern benutzen

[R3booz]

Wie kann ich das bei dem Befehl machen? ich hab schon zwei arten ausprobiert:

Code: Alles auswählen

ExamineDirectory(0, folder.s, "*.png|*.bmp")

oder

Code: Alles auswählen

ExamineDirectory(0, folder.s, "*.png | *.bmp")

Da kommt nur, dass 'folder.s (= D:\) nicht geöffnet wurde.

Und:

Code: Alles auswählen

ExamineDirectory(0, folder.s, "*.png;*.bmp")

oder

Code: Alles auswählen

ExamineDirectory(0, folder.s, "*.png ; *.bmp")

Aber da findet er gar keine Dateien obwohl welche existieren

Bitte um Hilfe

mfg R3booz

EDIT:
ich hab hier einen Beitrag gefunden aber der bestätigt nur die 2. möglichkeit die nicht funktioniert:
http://www.purebasic.fr/english/viewtop ... =3&t=25537

[bizzl]

Hallo,
ich würde es so machen:

Code: Alles auswählen

EnableExplicit

Define folder.s="C:\"
Define name.s

If ExamineDirectory(0,folder,"*.*") ;alles einlesen
  While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_File
      name=DirectoryEntryName(0) ;Dateinamen holen
      ;und filtern
      If UCase(GetExtensionPart(folder+name))="JPG" Or UCase(GetExtensionPart(folder+name))="PNG"
        Debug name
      EndIf      
    EndIf   
  Wend
  FinishDirectory(0)
EndIf

[R3booz]

Ok vielen Dank
Problem gelöst machs nun so
und ich gelesen dass immer nur ein Pattern geht

mfg

EDIT:
anderes Problem wie kann ich das machen wenn ich eine String mit endungen hab die immer unterschiedlich ist?
z.B.

Code: Alles auswählen

*.png *.bmp *.jpg

und dann vom user zu

Code: Alles auswählen

*.txt *.bat *.png

geändert wird und dann nochmal examinedir() eingesetzt werden soll?



mfg R3booz

[Sicro]

Code: Alles auswählen

;und filtern
ExtensionsString.s = "*.png *.bmp *.jpg" ; Hier deine Endungen angeben

ExtensionsString = " " + ExtensionsString + " "
If FindString(UCase(ExtensionsString), " *." + UCase(GetExtensionPart(folder+name)) + " ")
  Debug name
EndIf

[R3booz]

ok jetzt funktioniert es ausgezeichnet
endlich danke

mfg r3booz