Multiple patterns in directory commands
Posted: Thu Apr 19, 2007 10:29 am
Would be handy to have multiple paterns in the directory searching commands, so for example you can find all the jpeg's+bmp's+tiff's in one go without having to examine the extensions yourself.
Code: Select all
Directory$ = "c:\"
If ExamineDirectory(0, Directory$, "*.sys") ;*.sys works *.sys;*.bat finds nothing
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
Type$ = " [File] "
Else
Type$ = " [Sub-Dir] "
EndIf
Debug DirectoryEntryName(0) + Type$ + "- Size in byte: " + Str(DirectoryEntrySize(0))
Wend
FinishDirectory(0)
EndIf