tool Explorer add 'current directory'
Posted: Thu Feb 21, 2019 1:07 pm
Code: Select all
;tool Explorer add 'current directory'
OpenWindow(1,0,0,250,500,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ComboBoxGadget(2,0, 0,250, 20)
AddGadgetItem(2,-1,"PureBasic Files (*.pb, *.pbi, *.pbp, *.pbf)")
SetGadgetState(2,0)
;TODO my a Explorer is E:\myset\pb\WinAPI_Library\codes\
;TODO current directory is codes\EditorGadget\
StringGadget(3, 0, 20,250, 20, "EditorGadget")
ExplorerListGadget(4, 0, 40,250, 380, "E:\myset\pb\WinAPI_Library\codes\EditorGadget\")
Repeat:ev=WaitWindowEvent():Select ev
Case #PB_Event_CloseWindow:Break
EndSelect:ForEver
End