用GetOpenFileName函数怎么打开多个文件

Question

关注，我也一直不知如何解决。

Answer 1

Public Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End TypeOPENFILENAME中的flags设为OFN_ALLOWMULTISELECT就可以了
'示例代码如下：
dim bRet as long
dim ofn as OPENFILENAME
ofn.flags = OFN_ALLOWMULTISELECT
bRet  = GetOpenFileName（ofn)
msgbox ofn.lpstrFile