ExamineDirectory problem

[Fluid Byte]

#CBS_SORT funktioniert nur in Verbindung mit #CB_ADDSTRING:

Code: Alles auswählen

OpenWindow(0, 0,0,220,100,"void",#PB_Window_SystemMenu | 1)
ComboBoxGadget(0,10,10,200,20,#CBS_SORT)

ExamineDirectory(0,"C:\","*.*")
While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_Directory
    	SendMessage_(GadgetID(0),#CB_ADDSTRING,0,DirectoryEntryName(0))
    EndIf
Wend
FinishDirectory(0)

SetGadgetState(0,0)

While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend