Окно выбора директории и файлов

Sub Кнопка6_Щелкнуть() ' Кнопка на листе или пункт меню
 
 
fileToOpen = Application.GetOpenFilename("Only these Files (*.txt;*.doc;*.xls), *.txt; *.doc; *.xls")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
 
End Sub

Private Type BrowseInfo
    hwndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As String
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
Dim strPath As String
    Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
    Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
 
Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String
    Const BIF_RETURNONLYFSDIRS = 1, MAX_PATH = 260
    Dim intNull As Integer, lngIdList As Long
    Dim udtBI As BrowseInfo
 
With udtBI
        .hwndOwner = hwndOwner
        .lpszTitle = sPrompt
        .ulFlags = BIF_RETURNONLYFSDIRS
End With
    lngIdList = SHBrowseForFolder(udtBI)
    If lngIdList Then
        strPath = String$(MAX_PATH, 0)
        SHGetPathFromIDList lngIdList, strPath
        CoTaskMemFree lngIdList
        intNull = InStr(strPath, vbNullChar)
        If intNull Then strPath = Left$(strPath, intNull - 1)
    End If
    BrowseForFolder = strPath
End Function
 
 
Sub Кнопка5_Щелкнуть() ' Кнопка на листе или пункт меню
Dim MyName, A
    BrowseForFolder Лист1.Application.Hwnd, "Выбери каталог  ... "
       
    MyPath = strPath & "\" ' Указывает путь.
MyName = (Dir(MyPath, vbNormal))     ' Возвращает первый элемент.
Do While MyName <> ""   ' Начинает цикл.
    ' Игнорирует текущий каталог и каталог предыдущего уровня.
    If MyName <> "." And MyName <> ".." Then
        
        If (Right(MyName, 4)) = ras Then
          Форма1.Список1.AddItem MyName
        A = A + 1
        End If
 
    End If
    
    MyName = Dir    ' Возвращает следующий элемент.
      
Loop
 
 MsgBox "Выбрана папка   " & MyPath, vbOKOnly
 
End Sub