PureBasic

; Utilise ExplorerListGadget pour sélectionner plusieurs fichiers et/ou dossiers
; cet exemple montre l'utilisation de CountGadgetItems et GetGadgetItemState avec le gadget ExplorerListGadget
#Win_0 = 0
#ExplorerList_1 = 1

If OpenWindow(#Win_0, 0, 0, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ExplorerListGadget(#ExplorerList_1, 10, 10, 380, 180, "C:\*.*", #PB_Explorer_MultiSelect)
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

; une fois sorti du Gadget, la lecture des éléments sélectionnés est faite :
If GetGadgetState(#ExplorerList_1)>-1
   For i = 0 To CountGadgetItems(#ExplorerList_1) - 1
      If GetGadgetItemState(#ExplorerList_1, i) & #PB_Explorer_Selected
      ; si l'état de l'item dans le Gadget est sélectionné (#PB_Explorer_Selected) alors...
         If GetGadgetItemState(#ExplorerList_1, i) & #PB_Explorer_Directory
         ; on vérifie s'il s'agit d'un fichier (#PB_Explorer_File) ou d'un dossier (#PB_Explorer_Directory)
            Debug  "<"+GetGadgetItemText(#ExplorerList_1, i, 0)+">"
         Else
            Debug  GetGadgetItemText(#ExplorerList_1, i, 0)
         EndIf
      EndIf
  Next
EndIf