borderAndreaVB free resources for Visual Basic developersborder
AndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincani
:: Getting Multiple Files back from the CommonDialog Control

Author  

Mike G

Language  

VB6

Operating Systems  

Windows 95, 98, NT, 2k, Me and XP
Usage
Private Sub cmdOpen_Click()
    Dim sFileNames() As String
    Dim iCount As Integer

    cd.Filter = "All Files|*.*"
    cd.Flags = cdlOFNAllowMultiselect
    cd.ShowOpen

    If cd.FileName <> "" Then
        sFileNames = Split(cd.FileName, Chr(32))
        For iCount = LBound(sFileNames) To UBound(sFileNames)
            MsgBox sFileNames(iCount), vbInformation
        Next

    End If
End Sub
:: Navigation

Home

Beginners Corner

Previous Tip

Next Tip

:: Search this site
Google
borderAndreaVB free resources for Visual Basic developersborder
borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincaniborder