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

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.52
Яндекс индекс цитирования