Common Dialog Control выбор нескольких файлов не работает - VB
Формулировка задачи:
Проблема та же, что и в этой теме:Проблема с Common dialog control
Во-первых непонятно какое значение присвоить:
CommonDialog1.Flags
Мой язык не поддерживает LONG (пишу не на VBA) и не видит константы...
Соотвественно попробовал:
CommonDialogControl.Flags := 2621952;
Вроде все ОК, но возникла та же проблема:
функция FileName возвращает только Путь к Папке, хотя по идее должна была вернуть еще имена файлов.
Как получить выбранные имена файлов?
Решение задачи: «Common Dialog Control выбор нескольких файлов не работает»
textual
Листинг программы
Option Explicit Private Function GetFiles(List As String) As String() Dim i As Long, p As Long, o As Long, ret() As String i = InStr(1, List, vbNullChar) Do While i ReDim Preserve ret(p) ret(p) = Mid$(List, o + 1, i - o - 1) o = i: i = InStr(i + 1, List, vbNullChar): p = p + 1 Loop ReDim Preserve ret(p): ret(p) = Mid$(List, o + 1) GetFiles = ret End Function ' Проверка Private Sub Command1_Click() Dim ret() As String, i As Long With CommonDialog1 .MaxFileSize = 2048 ' Set as appropriate .FileName = "" .Filter = "All Files|*.*" .Flags = cdlOFNAllowMultiselect + cdlOFNExplorer .ShowOpen ret = GetFiles(.FileName) For i = 0 To UBound(ret) Debug.Print ret(i) Next End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д