<< Click to Display Table of Contents >> "打开文件"对话框 |
函数说明
该函数可以弹出一个“打开文件”的对话框。
函数原型
|
Public Function gf_GetOpenFileName(lHwnd As Long, sRoot As String, strFilter As String, sTitle As String) As String |
语法
gf_GetOpenFileName(lHwnd, sRoot, strFilter, sTitle)
参考:gf_GetOpenFileName(Application.hWndAccessApp, "C:\", “文本文件(*txt)|*.txt”, "打开文本文件") '打开一个“打开文件”对话框
参数
参数名 |
必需/可选 |
数据类型 |
参数说明 |
---|---|---|---|
lHwnd |
必需 |
Long |
窗体或者程序句柄,一般使用Application.hWndAccessApp 即可。 |
sRoot |
必需 |
String |
打开对话框的初始路径。 |
strFilter |
必需 |
String |
文件类型筛选器,格式是"文件描述|筛选格式",例如:"所有文件|*.*" |
sTitle |
必需 |
String |
"打开文件"对话框的标题 |
返回值
返回一个字符串(String),即通过对话框选择的文件。若没有选择文件,则返回空字符串。
示例
|
'单个文件类型筛选器 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的运行效果 (不同系统,效果会有些区别)