PureBasic Forums - English

Code: Select all

If OpenWindow(0, 0, 0, 300, 300, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ExplorerTreeGadget(0, 10, 10, 280, 280, "*.*")
    Repeat 
      Event = WaitWindowEvent()
      If Event = #PB_Event_Gadget
        Select EventGadget()
          Case 0
            If EventType() = #PB_EventType_LeftDoubleClick
              Item = GetGadgetState(0)
              If Item = #PB_Explorer_File
                FilePath.s = GetGadgetText(0)
                If FilePath <> ""
                  If RunProgram(FilePath) <> 0
                    Debug FilePath+" was launched"
                  Else
                    Debug "Error running: "+FilePath
                  EndIf
                EndIf
              EndIf
            EndIf
        EndSelect
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf