Как получить путь к файлу через CommonDialog?

04.10.2007, 08:20. **Показов** 2408. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Как получить путь к файлу через CommonDialog
Следующий фрагмент не работает:

Private Sub Command1_Click()
Dim St As String
CommonDialog1.Filter = '*(*.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico)| *.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico'
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen
St = CommonDialog1.FileName
If FileName = Empty Then
MsgBox ('Выбор файла не осуществлен'), vbExclamation, Me.Caption: Exit Sub
End If
St = CommonDialog1.FileName
Text1.Text = St
End Sub

Чего не хватает?

04.10.2007, 08:50

On Error GoTo errFile
cmnDlg.DialogTitle = 'Открыть файл'
cmnDlg.Filter = ' твой фильтр
cmnDlg.FilterIndex = 1
cmnDlg.DefaultExt = 'bmp' ' не обязательно
cmnDlg.InitDir = App.Path ' то же
cmnDlg.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNLongNames ' то же не обязательно
cmnDlg.CancelError = True ' если файл не будет выбран сработает обработчик ошибок errFile
cmnDlg.ShowOpen
MyFile = Trim(cmnDlg.FileName)
errFile:
Exit Sub

04.10.2007, 10:26

Спасибо.

Работает.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Славик

	Как получить путь к файлу через CommonDialog? 04.10.2007, 08:20. Показов 2408. Ответов 2 Метки нет (Все метки) Как получить путь к файлу через CommonDialog Следующий фрагмент не работает: Private Sub Command1_Click() Dim St As String CommonDialog1.Filter = '(.bmp;.jpg;.gif;.wmf;.cur;.ico)\| .bmp;.jpg;.gif;.wmf;.cur;*.ico' CommonDialog1.FilterIndex = 0 CommonDialog1.ShowOpen St = CommonDialog1.FileName If FileName = Empty Then MsgBox ('Выбор файла не осуществлен'), vbExclamation, Me.Caption: Exit Sub End If St = CommonDialog1.FileName Text1.Text = St End Sub Чего не хватает?

Mavr
	04.10.2007, 08:50
	On Error GoTo errFile cmnDlg.DialogTitle = 'Открыть файл' cmnDlg.Filter = ' твой фильтр cmnDlg.FilterIndex = 1 cmnDlg.DefaultExt = 'bmp' ' не обязательно cmnDlg.InitDir = App.Path ' то же cmnDlg.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNLongNames ' то же не обязательно cmnDlg.CancelError = True ' если файл не будет выбран сработает обработчик ошибок errFile cmnDlg.ShowOpen MyFile = Trim(cmnDlg.FileName) errFile: Exit Sub

Славик
	04.10.2007, 10:26
	Спасибо. Работает.