Славик
|
|
1 | |
Как получить путь к файлу через CommonDialog?04.10.2007, 08:20. Показов 2206. Ответов 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:20 | |
Ответы с готовыми решениями:
2
Как через диалоговое окно (CommonDialog) выбрать путь к папки для ее копирования? Как получить путь к файлу, который открывается через контекстное меню Как получить путь от домена сайта к текущему файлу, который подключен через require? Как программно получить путь к файлу конфигураций программы (файлу user.config)? |
Mavr
|
|
04.10.2007, 08:50 | 2 |
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 | 3 |
Спасибо.
Работает. |
04.10.2007, 10:26 | |
04.10.2007, 10:26 | |
Помогаю со студенческими работами здесь
3
Получить путь к файлу через OpenFileDialog Получить полный путь к файлу созданного через ofstream Необходимо получить путь к файлу через стандартные диалоги Как получить путь к файлу Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |