Проверка наличия доступа к папке (по сети) - VB

Формулировка задачи:

Добрый вечер. Два вопроса такого плана: 1. как узнать существует сетевая папка или нет? 2. как вызвать окно аутентификации для доступа к запароленной сетевой папке? Сложность в том, что способ проверки ч/з Dir выдает ложь ("папки не существует"). А хотелось бы получить ответ вида - "папка есть, но доступ запрещен".

Решение задачи: «Проверка наличия доступа к папке (по сети)»

textual
                            Листинг программы 
                        

                            '***Открытие файла(ч/з коммон диалог)***'
Public Function open_file(dialog As CommonDialog, filtr As String) As String
    With dialog
        ' Set CancelError is True
        .CancelError = True
        On Error GoTo ErrHandler
        ' Set flags
        .Flags = cdlOFNHideReadOnly
        ' Set filters
        .Filter = filtr
        .FilterIndex = 0
        .fileName = ""
        If bases_path = "" Then
            .InitDir = App.path
        Else
            .InitDir = bases_path
        End If
        .DialogTitle = "Выберите файл для открытия"
        ' Display the Open dialog box
        .ShowOpen
        ' Display name of selected file
        open_file = .fileName
    End With
        Exit Function
ErrHandler:
    'User pressed the Cancel button
        Exit Function
End Function
'***************'
                        