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
Комментарии
отсутствуют
Добавление комментария
:: Последние обновления ::
04.09.2011 Долгожданный релиз VB Decompiler. Масса улучшений декомпиляции Native Code. Значительно расширенна и обновлена справочная система на русском и английском языках.
20.12.2010 DotFix Software поздравляет наших клиентов и посетителей сайта с наступающим Новым Годом и рождеством! Желаем приятно провести праздники и успехов в новом году!
28.11.2010 Выпущена новая версия защиты DotFix NiceProtect. Основные изменения коснулись обфускатора Delphi программ. Теперь имеется полная поддержка Tab и Page контролов на формах, что обеспечивает максимальную совместимость обфускации с Delphi XE программами.
21.10.2010 Обновлен декомпилятор Visual Basic программ до версии 8.1. Декомпиляция P-Code программ становится все более идеальной, также проделана большая работа по улучшению анализа Native Code и .NET приложений.
16.09.2009 Полностью обновлен движок сайта! Теперь все ссылки имеют читаемый понятный вид, разного рода глюки на страницах убраны. И теперь сайт полноценно работает на второй версии нашего движка.