Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: vbcode Дата публикации: 10.6.04

CommonDialog: Выбор нескольких файлов для открытия

Некоторое время назад я натолкнулся на одном из сайтов на вопрос: "А как мне с помощью CommonDialog выбрать несколько файлов для открытия". Ответ кроется в устанавливаемом флажке cdlOFNAllowMultiselect. Подробности? Пожалуйста. Скопирова код, запустите программу на выполнение. Нажмите на кнопку, выберите несколько файлов, нажмите "Открыть". Вы получите строку, содержащую полный путь к отрываемой папке, а также разделенные пробелами список файлов для открытия. Вам останется только разделить полученную строку на отдельные элементы. Я могу это сделать, а Вы?
CODE NOW!
Private Sub ShowOpen()
On Error GoTo ErrorHandler
CommonDialog1.CancelError = True
CommonDialog1.Filter = "All Files (*.*)|*.*|Word Documents (*.doc )|*.doc |Text Files (*.txt)|*.txt|"
CommonDialog1.FilterIndex = 3
CommonDialog1.InitDir = "D:\DOCUMENTS"
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNAllowMultiselect
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
'***********
'Здесь распологается Ваш код (не забудьте, что путь к выбранному файлу Вы считываете из свойства FileName)
MsgBox CommonDialog1.FileName
'**********
Exit Sub
ErrorHandler:
If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub Command1_Click()
Call ShowOpen
End Sub



Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

Комментарии могут добавлять только пользователи,
зарегистрированные на форуме данного сайта. Если Вы не
зарегистрированы, то сначала зарегистрируйтесь тут

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты