SetExplorerListGadgetPath

Синтаксис

Function SetExplorerListGadgetPath(byval gadget As Integer, byref sPath As String) As BOOL

Описание

Устанавливает путь текущего каталога в ExplorerListGadget

Параметры

gadget - номер гаджета

sPath - путь для установки

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HWND LWHwnd
CenterWindow(OpenWindow("",10,10,440,400))
ExplorerListGadget(1,10,10)
ButtonGadget(2,10,330,130,20,"Установить путь")
Do
  Var ev = WaitEvent()
  Select Case ev
     Case eventclose
        Exit Do
     Case eventgadget
        If eventnumber = 2  Then
           SetExplorerListGadgetPath(1,"C:\Windows\")
        EndIf
  End Select
Loop

Результат

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source