如何使用Commondialog一次打开多个同类型的文件？

Question

并且可以得到打开的文件的个数数目。

Answer 1

在使用CommonDialog控件之前，首先要进行一些设置工作：将Flags属性设定为 cdlOFNAllowMultiselect，即允许选择多个文件；根据具体需要设置Filter属性来决定"打开文件"对话框允许显示的文件类型；给MaxFileSize属性赋予较大的值，以便FileName属性可容纳较多的文件名。设置完成后调用ShowOpen即可显示"打开文件"对话框让用户选择文件，在对话完毕后检查FileName属性以获取选中的文件名。
需要注意的是，CommonDialog控件将用户选中的所有文件名都保存在FileName这个简单字符型属性中，文件名之间用空格分开，因此在进行替换处理之前必须首先用程序将每个文件名取出。Private Sub Command1_Click()
   Me.CommonDialog1.Flags = cdlOFNAllowMultiselect
   Me.CommonDialog1.Filter = "all file|*.*"
   Me.CommonDialog1.MaxFileSize = 32167
   Me.CommonDialog1.ShowOpen
   Dim s As String
   s = Me.CommonDialog1.FileName
   Dim arr
   arr = Split(s, " ")
   Dim i As Long
   For i = 0 To UBound(arr)
   Debug.Print arr(i)
   Next
End Sub