Explorerlistgadget

[rndrei]

How do I find the name of the selected file?

Code: Select all

   Select EventType()
       Case #Explorerlistgadget
           String$ = GetGadgetText(#Explorerlistgadget)
   Endselect

It's not working!

[BarryG]

Code: Select all

If OpenWindow(0, 300, 200, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu)
  ExplorerListGadget(0, 10, 10, 380, 180, "c:\")
  Repeat
    ev=WaitWindowEvent()
    If ev=#PB_Event_Gadget And EventType()=#PB_EventType_Change
      i=GetGadgetState(0)
      Debug GetGadgetItemText(0,i)
    EndIf
  Until ev=#PB_Event_CloseWindow
EndIf

[rndrei]

Thank you!
And how do you find out the full path of a file?

[BarryG]

Code: Select all

If OpenWindow(0, 300, 200, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu)
  ExplorerListGadget(0, 10, 10, 380, 180, "c:\")
  Repeat
    ev=WaitWindowEvent()
    If ev=#PB_Event_Gadget And EventType()=#PB_EventType_Change
      i=GetGadgetState(0)
      Debug GetGadgetText(0)+GetGadgetItemText(0,i)
    EndIf
  Until ev=#PB_Event_CloseWindow
EndIf