PureBasic

Code : Tout sélectionner

; 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