Private Sub Command1_Click()
On Error GoTo ErrHandler
With Me.CommonDialog1
.CancelError = True
.DialogTitle = "Обзор"
.FileName = Empty '""
.ShowOpen
'Me.Text1.Text = .FileName
Me.Text1.Text = Replace(.FileName, .FileTitle, "")
End With
Exit Sub
ErrHandler:
If Err.Number = 32755 Then
MsgBox "Надо было выбрать нужный файл", vbCritical, ""
End If
End Sub
Аналог кнопки "Обзор"
Как можно организовать?
Те, по нажатию на кнопку попадаем в окно выбора файлов, идем по папкам к еужному файлу, выбираем его и путь к этому файлу кладется в текстовое поле.
Те, по нажатию на кнопку попадаем в окно выбора файлов, идем по папкам к еужному файлу, выбираем его и путь к этому файлу кладется в текстовое поле.
Насколько мне помнится в VB были элементы управления DriveListBox, DirListBox и FileListBox с помощью которых можно было решать аналогичные задачи. Но если нет желания создавать собственное окно выбора файлов, то можно добавить элемент управления CommonDialog (Microsoft Common Dialog Control x.0) затем разместить его на Вашей форме и использовать что-то вроде нижеопубликованного кода (не забывая при этом, что у CommonDialog есть и другие свойства и методы, которые могут быть Вам полезны)
Код:
Да, все получилось, а можно чтоп commonDialog просил указать путь не до файла, а к деректории?
Код:
With Me.CommonDialog1
.CancelError = True
.InitDir = "C:\TEMP" 'укажите свою папку
...
End With
.CancelError = True
.InitDir = "C:\TEMP" 'укажите свою папку
...
End With