die frage dieses threads hab ich auch grad gestellt...
aber wenn mehrere pattern möglich sind, sollte auch ein pattern für directories stehen (oder ein flag), sonst brauch man um subdirs zu finden ja wieder den pattern "*.*", der dann alle anderen nutzlos macht.
ExamineDirectory mit mehreren Pattern ??
*BUMP*
Was ist denn nun daraus geworden?
Was ist denn nun daraus geworden?
PB 4.30
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
- stab
- Beiträge: 96
- Registriert: 24.02.2006 16:09
- Computerausstattung: 286er Big Tower; 16MHz; 1MB Ram; 40MB Festplatte, 5 1/4" und 3 1/2" Diskettenlaufwerk; VGA Farbmonitor 14"; Windows 3.1; PureBasic 0.5
- Wohnort: Hardt
- Kontaktdaten:
Warum nicht so?
Code: Alles auswählen
Directory$ = "C:\" ; Listet alle Einträge auf C:\ auf (ohne die Inhalte aus Unterverzeichnissen)
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
Dateierweiterung.s = GetExtensionPart(DirectoryEntryName(0))
Select LCase(Dateierweiterung)
Case "log", "bat", "sys"
Debug DirectoryEntryName(0)
EndSelect
Wend
FinishDirectory(0)
EndIf