平台内置了很多函数，用户可以直接调用

其中gf_GetOpenFileName函数可以弹出一个“打开文件”的对话框。

语法

gf_GetOpenFileName(lHwnd, sRoot, strFilter, sTitle)

参数

返回值

返回一个字符串(String)，即通过对话框选择的文件。若没有选择文件，则返回空字符串。

如果第二个参数为空（不填），即打开上次打开的文件夹;如果是程序的目录，可用Currentproject.Path

示例

    '单个文件类型筛选器
      Sub subTest1()
              Dim strFilter As String    '定义字符串变量，设置文件类型筛选器
              Dim strReturn As String  '定义字符串变量，接收返回结果
 
               strFilter = "文本文件(*.txt)|*.txt"  '文件描述和筛选器描述用“|”分隔
               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件")    '打开一个“打开文件”对话框
             
               '验证结果
              If strReturn <> "" Then
                      Msgbox "您要打开的文件路径是 " & strReturn
              Else
                      Msgbox "您没有选择要打开的文件"
              End If
      End Sub
 
      '多个文件类型筛选器
      Sub subTest2()
              Dim strFilter As String    '定义字符串变量，设置文件类型筛选器
              Dim strReturn As String  '定义字符串变量，接收返回结果
 
               strFilter = "文本文件(*.txt)|*.txt|配置文件(*.ini)|*.ini"  '文件描述和筛选器描述仍然用“|”分隔，构成一组筛选器，多个筛选器也用“|”分割
               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件")    '打开一个“打开文件”对话框
             
               '验证结果
              If strReturn <> "" Then
                      Msgbox "您要打开的文件路径是 " & strReturn
              Else
                      Msgbox "您没有选择要打开的文件"
              End If
      End Sub
 
      '同时筛选多种文件类型筛选器
      Sub subTest3()
              Dim strFilter As String    '定义字符串变量，设置文件类型筛选器
              Dim strReturn As String  '定义字符串变量，接收返回结果
 
               strFilter = "图片文件|*.jpg;*.bmp;*.png"  '文件描述和筛选器描述仍然用“|”分隔，构成一组筛选器。而多个筛选器描述需要用";"分隔
               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件")    '打开一个“打开文件”对话框
             
               '验证结果
              If strReturn <> "" Then
                      Msgbox "您要打开的文件路径是 " & strReturn
              Else
                      Msgbox "您没有选择要打开的文件"
              End If
      End Sub

运行效果

      示例1的运行效果 (不同系统，效果会有些区别)