ник: osmor
весь нижеприведенный код вставить в обработчик события кнопки Dim odialog As New clsOpenDialog
Dim strSelFile As String
With odialog
.StartFolder = "c:/windows" стартовая папка. Можно не задавать. По умолчанию c:/
.strTitle = "Укажите файл для проверки" заголовок окна. Можно не задавать. По умолчанию "Открытие файла"
.strFilter = "Базы Access (*.MDB);*.mdb;Все файлы (*.*);*.*" строка для фильтра. Можно не задавать. По умолчанию "ВСЕ файлы"
If .OpenDialogFileName(Me.hWnd) = "" Then нажата кнопка "отмена"
MsgBox "ничего не выбрано"
Else выбран файл выводим его атрибуты
MsgBox "Полное имя - " & .strFullName & vbCrLf & _
"Путь к файлу - " & .strPath & vbCrLf & _
"Имя файла - " & .strFileName & vbCrLf & _
"Расширение - " & .strFileExt
End If
End With