VB纯代码调用系统的打开对话框

'模块
Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '“打开”
Private Declare Function GetActiveWindow Lib “user32” () As Long '获得活动窗口的句柄
Private Type OPENFILENAME
lStructSize As Long '结构大小。
hwndOwner As Long '窗口句柄。
hInstance As Long '当前应用程序实例的句柄。
lpstrFilter As String '选中的过滤器（过滤器索引所指向的过滤器）字符串。
lpstrCustomFilter As String ’
nMaxCustFilter As Long '过滤器最大长度。
nFilterIndex As Long '选中的过滤器索引，意义与CommonDialog控件相同。
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 '全路径文件名长度（不计算前面3个表示盘符的字符，如：D:\）。
lpstrDefExt As String '默认提取。
lCustData As Long ’
lpfnHook As Long '勾子函数地址。
lpTemplateName As String ’
End Type
Public FileName As String '返回\获取一个文件绝对路径。
Public Filter As String '返回\显示文件类型。
Public DialogTitle As String '标题内容
Public MultiSelect As Boolean '多选[True]与单选[False]【只针对打开对话框】

Sub ShowOpen() '“打开对话框”
Const OFN_HIDEREADONLY = &H4
Const OFN_PATHMUSTEXIST = &H800
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_ALLOWMULTISELECT = &H200
Const OFN_EXPLORER = &H80000
Dim Rtn As Long, pos As Integer
Dim file As OPENFILENAME
file.lStructSize = Len(file)
file.hwndOwner = GetActiveWindow
file.hInstance = App.hInstance
file.lpstrFile = String