ник: Гамлет
Всем привет
Этот код открывает окно диалога и записывает в поле [Text3] формы путь до выбранной папки (при этом нет возможности выбрать файл)
Private Sub cmdFileDialog_Click()
Dim WSHShell, folder
On Error Resume Next
Set WSHShell = CreateObject("Shell.application")
Set folder = WSHShell.BrowseForFolder(0, "Choose folder", &H200, "")
If Not Err.Number = 91 Then Me.Text3 = folder.self.Path
Set WSHShell = Nothing
End Sub
|
Как открыть окно диалога, в котором можно выбрать файл и записать его путь включая сам файл