Как загрузить из CommonDialog...

[TNG]

Уважаемые программеры! Подскажите плиз как, при установке на CommonDialog флага мультивыбор файлов, добавлять имена файлов в ListBox и д.р., ведь файло разделено лишь пробелами, а надо, чтоб все имена выбранных файлов в одих лист, путь в другой...

[Unstat]

Если тебе надо сделать то что я думаю(а я думаю тебе надо выбрать в CmD множество файлов и что бы они появились в ListBox'е) тогда просто выделяй и добавляй слово пока не пробел, а если пробел тогда другое слово и т.д.

[TNG]

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

P.S.: Люблю найденным с людьми делиться

[Cyrax]

хочу немного прояснитьситуацию... для потомков так сказать...
при использовании Microsoft Common Dialog Control для выбора нескольких файлов в свойстве .FileName возвращается строка содержащая имена выбранных файлов разделенных пробелами. если же для этой цели используются функции библиотеки comdlg32.dll, то возвращаемые имена файлов будут разделены null-символом (Chr$(0))
для извлечения имен файлов из этой строки можно воспользоватся следующим способом

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

Dim FileList() As String ' динамический массив, в который будут помещены имена выбранных файлов
Dim i As Long

With cdl
  .DialogTitle = "Select files..."
  .FileName = ""
  .Flags = cdlOFNAllowMultiselect ' вллючаем мультиселек файлов
  .ShowOpen
 
  If .FileName = "" Then Exit Sub ' выходим если ничего не выбрано   
  FileList = Split(.FileName, Chr$(32)) ' Chr$(32) - это пробел. замените на CHR$(0) при использовании API-функции GetOpenFileName
  ' нулевым элементом массива FileList будет путь к папке в которой выделялись файлы
  ' элементы с 1 по UBound(FileList) будут содержать имена файлов
End With' теперь можно пройтись по всем элементам массива и добавить их, скажем, в ListBox
For i = 1 To UBound(FileList)
  List1.AddItem FileList(0) & "\" & FileList(i) ' добавляем полный путь к файлу
Next i

ну вот вроде бы все...
да чуть не забыл... тут есть один подводный камень, с которым я однажды столкнулся, и который не смог обойти... при выборе большого количества файлов появляется сообщение об ошибке "Run-time error 20476
The FileName buffer is too small to store the selected file(s).
(Increase MaxFileSize)"
т.е. не хватает размера буфера для хранения всех выбранных имен файлов. чтобы увеличить размер этого буфера нужно установить болшее значение для свойства .MaxFileSize. но это свойство имеет тип Integer...
хотя, скажем, тот же WinAmp спокойно открывает любое количество файлов, выбранных в диалоге открытия. значит там используется какой-то другой механизм... либо при использовании API значение MaxFileSize может быть больше, чем тип Integer...

[Vi]

хочу немного прояснитьситуацию... для потомков так сказать...
при использовании Microsoft Common Dialog Control для выбора нескольких файлов в свойстве .FileName возвращается строка содержащая имена выбранных файлов разделенных пробелами. если же для этой цели используются функции библиотеки comdlg32.dll, то возвращаемые имена файлов будут разделены null-символом (Chr$(0))

Не только функция библиотеки обладает указанным разделителем. Сам Common Dialog Control разделяет или пробелом или vbNullChar-ом. Это зависит от наличия флага cdlOFNExplorer. При его отсутсвии разделитель - "пробел", при наличии - null-символ.

[Cyrax]

Ooops!
будем иметь в виду...
а как все-таки обойти ограничение MaxFileSize? кто-нибудь знает?

[#HammeR#]

CyRax . Это ты под одноименном ником "рвеш" и "мечеш" на форумах vbnet.ru?

[Cyrax]

CyRax . Это ты под одноименном ником "рвеш" и "мечеш" на форумах vbnet.ru?

нет, это мой тезка так что, если есть какие-то претензии... прошу извинить, они не приняты

p.s. мне времени едва хватает на этот форум