平臺(tái)內(nèi)置了很多函數(shù)，用戶可以直接調(diào)用

其中g(shù)f_GetOpenFileName函數(shù)可以彈出一個(gè)“打開文件”的對(duì)話框。

語法

gf_GetOpenFileName(lHwnd, sRoot, strFilter, sTitle)

參數(shù)

返回值

返回一個(gè)字符串(String)，即通過對(duì)話框選擇的文件。若沒有選擇文件，則返回空字符串。

如果第二個(gè)參數(shù)為空（不填），即打開上次打開的文件夾;如果是程序的目錄，可用Currentproject.Path

示例

    '單個(gè)文件類型篩選器
      Sub subTest1()
              Dim strFilter As String    '定義字符串變量，設(shè)置文件類型篩選器
              Dim strReturn As String  '定義字符串變量，接收返回結(jié)果
 
               strFilter = "文本文件(*.txt)|*.txt"  '文件描述和篩選器描述用“|”分隔
               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打開文件")    '打開一個(gè)“打開文件”對(duì)話框
             
               '驗(yàn)證結(jié)果
              If strReturn <> "" Then
                      Msgbox "您要打開的文件路徑是 " & strReturn
              Else
                      Msgbox "您沒有選擇要打開的文件"
              End If
      End Sub
 
      '多個(gè)文件類型篩選器
      Sub subTest2()
              Dim strFilter As String    '定義字符串變量，設(shè)置文件類型篩選器
              Dim strReturn As String  '定義字符串變量，接收返回結(jié)果
 
               strFilter = "文本文件(*.txt)|*.txt|配置文件(*.ini)|*.ini"  '文件描述和篩選器描述仍然用“|”分隔，構(gòu)成一組篩選器，多個(gè)篩選器也用“|”分割
               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打開文件")    '打開一個(gè)“打開文件”對(duì)話框
             
               '驗(yàn)證結(jié)果
              If strReturn <> "" Then
                      Msgbox "您要打開的文件路徑是 " & strReturn
              Else
                      Msgbox "您沒有選擇要打開的文件"
              End If
      End Sub
 
      '同時(shí)篩選多種文件類型篩選器
      Sub subTest3()
              Dim strFilter As String    '定義字符串變量，設(shè)置文件類型篩選器
              Dim strReturn As String  '定義字符串變量，接收返回結(jié)果
 
               strFilter = "圖片文件|*.jpg;*.bmp;*.png"  '文件描述和篩選器描述仍然用“|”分隔，構(gòu)成一組篩選器。而多個(gè)篩選器描述需要用";"分隔
               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打開文件")    '打開一個(gè)“打開文件”對(duì)話框
             
               '驗(yàn)證結(jié)果
              If strReturn <> "" Then
                      Msgbox "您要打開的文件路徑是 " & strReturn
              Else
                      Msgbox "您沒有選擇要打開的文件"
              End If
      End Sub

運(yùn)行效果

      示例1的運(yùn)行效果 (不同系統(tǒng)，效果會(huì)有些區(qū)別)