Диалог выбора файла
Нужно в VB вызвать стандартный виндозный диалог выбора файла (не открытия, а именно выбора), что бы потом можно было получить имя и путь к файлу. Как я понимаю это должно быть, что-то типа этого:
Set ishApp = CreateObject("Shell.Application")
Set iPath = ishApp.BrowseForFolder(&H0, " Выберите папку....", &H1, 17)
If Not iPath Is Nothing Then
iFullPath = iPath.Items.Item.Path
End If
Но как я понимаю, это для выбора папки, а нужно для выбора файла.
Set ishApp = CreateObject("Shell.Application")
Set iPath = ishApp.BrowseForFolder(&H0, " Выберите папку....", &H1, 17)
If Not iPath Is Nothing Then
iFullPath = iPath.Items.Item.Path
End If
Но как я понимаю, это для выбора папки, а нужно для выбора файла.
Цитата:
Originally posted by pashulka
Стандартное окно выбора файла
Стандартное окно выбора файла
А можно поподробнее, с примером кода? и мне нужно что бы не для офисного приложения.....
Посмотрите здесь : Возможности по настройке диалоговых окон
Создай на форме: Одну кнопку, один список файлов, один список устройств, одно текстовое поле и один список каталогов и вставь это код:
Private Sub Dir1_Change()
File1.Path = Dir1.Path 'Изменение содержимого File1 при выборе каталога в Dir1.
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 'Изменение содержимого File1 при выборе устройства в Drive1.
End Sub
Private Sub Command1_Click()
Dim a As Integer
a = FreeFile
Open Dir1.Path & "\" & File1 For Input As #a
Form1.Text1.Text = Input(LOF(1), 1)
Close #a
End Sub
Теперь запусти прогу. И полностью пройди до какого ни будь текстогого файла. Укажи его в File1 и нажми кнопку. Теперь Text1 содержит в себе содержимое этого файла. (Если нужно так же сохранение текстовой информации в файл, пиши отвечу(zlak_killer@inbox.ru)).X)-
Private Sub Dir1_Change()
File1.Path = Dir1.Path 'Изменение содержимого File1 при выборе каталога в Dir1.
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 'Изменение содержимого File1 при выборе устройства в Drive1.
End Sub
Private Sub Command1_Click()
Dim a As Integer
a = FreeFile
Open Dir1.Path & "\" & File1 For Input As #a
Form1.Text1.Text = Input(LOF(1), 1)
Close #a
End Sub
Теперь запусти прогу. И полностью пройди до какого ни будь текстогого файла. Укажи его в File1 и нажми кнопку. Теперь Text1 содержит в себе содержимое этого файла. (Если нужно так же сохранение текстовой информации в файл, пиши отвечу(zlak_killer@inbox.ru)).X)-
Цитата:
Originally posted by Russo
Нужно в VB вызвать стандартный виндозный диалог выбора файла (не открытия, а именно выбора), что бы потом можно было получить имя и путь к файлу. Как я понимаю это должно быть, что-то типа этого:
Set ishApp = CreateObject("Shell.Application")
Set iPath = ishApp.BrowseForFolder(&H0, " Выберите папку....", &H1, 17)
If Not iPath Is Nothing Then
iFullPath = iPath.Items.Item.Path
End If
Но как я понимаю, это для выбора папки, а нужно для выбора файла.
Нужно в VB вызвать стандартный виндозный диалог выбора файла (не открытия, а именно выбора), что бы потом можно было получить имя и путь к файлу. Как я понимаю это должно быть, что-то типа этого:
Set ishApp = CreateObject("Shell.Application")
Set iPath = ishApp.BrowseForFolder(&H0, " Выберите папку....", &H1, 17)
If Not iPath Is Nothing Then
iFullPath = iPath.Items.Item.Path
End If
Но как я понимаю, это для выбора папки, а нужно для выбора файла.
1. Добавляешь в проект компонент Microsoft Common Dialog Control 6.0 и выкладываешь его на форму
2. В моем примере на форме есть один CommandButton и один TextBox
3. Вот собственно как это работает:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub