как создать кнопку "Обзор"?

[Бандикут]

нужно создать диалоговое окно с текстовым полем для ввода полного адреса (пути) файла, но чтоб не руками его вводить, а выбрать после нажатия кнопки "Обзор". ну, в общем, как это обычно происходит в Windows

[VikHion]

Привет.Через WinApi
Нужно создать структуру
Type OPENFILENAME
lngStructSize As Long 'Размер структуры
hwndOwner As Long 'Дескриптор окна владельца
hInstance As Long 'Экземпляр шаблона
strFilter As String 'Строка фильтра
strCustomFilter As String 'Строка с выбранным фильтром
intMaxCustFilter As Long 'Len(strCustomFilter)
intFilterIndex As Long 'Индекс строки фильтра
strFile As String 'Выбранный файл и путь
intMaxFile As Long 'Len(strFile)
strFileTitle As String 'Выбранное имя файла
intMaxFileTitle As Long 'Len(strFileTitle)
strInitialDir As String 'Имя католога
strTitle As String 'Заголовок диалогового окна
lngFlags As Long 'Флаги диалогового окна
intFileOffset As Integer 'Смещение имени файла
intFileExtention As Integer 'Смещение расширения файла
strDefExt As String 'Расширение файла по умолчанию
lngCustData As Long 'Данные для обработки
lngfnHook As Long 'LP для функции обработки
strTemplateName As String 'Имя шаблона диалогового окна
End Type

И задекларировать функции

Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (ofn As OPENFILENAME) As Boolean

Declare Function GetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (ofn As OPENFILENAME) As Boolean

Более подробно в книге книги "VBA Developer's Handbook"
'Кена Гетца (Ken Getz) и Майка Дилберта (Mike Gilbert), может кто ссылку кинет, я видел в инете пример на эту тему но найти сейчас не смог.

[KocTeJIoM]

Можно сделать все гораздо проще используй фунцию

GetOpenFilename
Примерчик из справки:)

fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If

[AndreyV]

http://bbs.vbstreets.ru/viewtopic.php?t=6990

[Бандикут]

Спасибо огромное!!