MyTetra Share
Делитесь знаниями!
Диалоговое окно выбора папки
16.03.2019
23:43
Текстовые метки: shell,FileDialog
Раздел: !Закладки - VBA - GetOpen

Диалоговое окно выбора папки

Код (vb.net):

        dim objShell
        dim objFolder
     
        set objShell = CreateObject("shell.application")
            set objFolder = objShell.BrowseForFolder(&H0, "Example",&H4000, "c:\\")
                if (not objFolder is nothing) then
                objShell.ShellExecute objFolder.ParentFolder.ParseName(objFolder.title).Path, "", "", "open", 1
                end if
            set objFolder = nothing
        set objShell = nothing

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования