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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы