Автор: vbcode Дата публикации: 10.06.2004

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

Некоторое время назад я натолкнулся на одном из сайтов на вопрос: "А как мне с помощью CommonDialog выбрать несколько файлов для открытия". Ответ кроется в устанавливаемом флажке cdlOFNAllowMultiselect. Подробности? Пожалуйста. Скопирова код, запустите программу на выполнение. Нажмите на кнопку, выберите несколько файлов, нажмите "Открыть". Вы получите строку, содержащую полный путь к отрываемой папке, а также разделенные пробелами список файлов для открытия. Вам останется только разделить полученную строку на отдельные элементы. Я могу это сделать, а Вы?

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

Комментарии

отсутствуют

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