【转】vb 关于commondialog的多选

代码如下：

Function OpenFile(strFileInfor As String, strFileType As String, blnIsMulti As Boolean, OpenFileDialog As Control) As String()
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'OpenFileDialog 通用对话框
    'strstrfileInfor 文件提示
    'strstrfileType 文件类型，扩展名
    'blnblnismulti 是否为多选
    '返回为文件名数组，OpenFile(0)存放文件路径，从1开始存放文件名，包括只有一个文件时的情况。
    '返回的路径中已经包含了最后的"\"
    '如果没有选择任何文件，OpenFileFuction(0)返回为""
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '设置打开文件对话框过滤器
    OpenFileDialog.Filter = strFileInfor & "|" & strFileType
    '设定是否可以多选
    If blnIsMulti Then
        OpenFileDialog.Flags = &H80200