MyTetra Share
Делитесь знаниями!
Диалоговое окно выбора файла
Время создания: 16.03.2019 23:43
Текстовые метки: shell, FileDialog
Раздел: !Закладки - VBA - GetOpen
Запись: adgaver/mytetra_base_New/master/base/1514656517p4i1qpx14k/text.html на raw.githubusercontent.com

Function OpenFileDialogue(StartFolder)
    on error resume next
    Dim oFolder: Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Выбор папки с архивом или файлом XML лога AVZ", 16 + 16384, StartFolder)
    If not (oFolder is Nothing) Then OpenFileDialogue = oFolder.Self.Path
    if Err.Number <> 0 or len(OpenFileDialogue) = 0 then msgbox "Выбирать можно только папки !",,"ALF": WScript.Quit 1
    set oFolder = Nothing
end Function

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