CommonDialog: Načtení více souborů

Postup:
Na formulář dejte tlačítko a prvek CommonDialog. Na událost Click tlačítka:

Private Sub Command1_Click()

    Dim lsFiles() As String
    Dim i As Long
       
    CommonDialog1.Filter = "Všechny soubory|*.*"
    CommonDialog1.Flags = cdlOFNAllowMultiselect
    
    CommonDialog1.ShowOpen
    
    If CommonDialog1.FileName <> "" Then
        lsFiles = Split(CommonDialog1.FileName, Chr(32))
    
        For i = LBound(lsFiles) To UBound(lsFiles)
            MsgBox lsFiles(i)
        Next
    End If

End Sub

Nyní se bude každý z vybraných souborů z CommonDialogu zobrazovat pomocí funkce MsgBox.

Zpět