CommonDialog - открыть несколько файлов...

[FreiDer]

Проблема не в том как это сделать - весь инет кишит одним и тем же примером:

Код: Выделить всё

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
MsgBox CommonDialog1.FileName
Exit Sub
ErrorHandler:
If Err.Number = 32755 Then Exit Sub
End Sub


Проблема в том, при использовании ключа cdlOFNAllowMultiselect
Стандартный диалог открытия файла, "слегка" видоизменяется, до неудобоваримого аля win95.
Хотя в то-же время доводилось видеть в различных программах и стандартный диалог "открыть..." с возможностью выбора нескольких файлов.
Помогите найти выход из ситуации...

[BV]

Or cdlOFNExplorer

[FreiDer]

Добавил... Теперь CommonDialog1.FileName возвращает только директорию в которой лежат выбранные файлы (если выбрано более одного), если выбран один файл, то возвращает полный путь...

Бяда...

[Kovu]

Он возвращает путь и файлы, разделенные chr(0) charami. В MsgBox'e этого естественно не видно

[FreiDer]

Было похожее подозрение, но моя дурья башка решила проверить на label.caption, неудивительно что и там не было видно
Большое спасибо всем откликнувшимся