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