1、使用该方法打开对话框后，无法选择多个文件和
2、设置CommonDialog1.Flags = &H200后,允许选择多个文件，但如何获取所选择的文件数量？
还请各位大虾位指点，谢谢。

    Dim files() As String, str  As String
    Dim path As String, N As Integer
   
    With CommonDialog1
        .Flags = &H200
        .Filter = "All   Files|*.*"
        .ShowOpen
    End With
    str = CommonDialog1.FileName
   
    N = Len(str)
    Do While N > 0
        N = InStr(str, "\")
        str = Mid(str, N + 1, Len(str))
    Loop
    files = Split(Trim(str), " ")
   
    Debug.Print UBound(files, 1) + 1

谢谢，虽然还不能实现常规“打开”控件的多项选择，但已经基本能够实现我要的目的了。

还有就是，点击一次CommonDialog1控件后，能够正常显示“打开”对话框，但再次点击的话，CommonDialog1控件就没有反应了，有哪个常数可以设置为允许多次点击CommonDialog1选择打开文件名吗？