GetFileOpenName()
功能显示打开文件对话框,让用户选择要打开的文件。
语法:GetFileOpenName(title,pathname,filename{,extension{,filter}})、GetFilesavename(title,pathname,filename{,extension{,filter}})
参数title:string类型,指定对话框的标题
pathname:string类型变量,用于保存该对话框返回的文件路径及文件名
filename:string类型变量,用于保存该对话框返回的文件名
extension:string类型,可选项,使用1到3个字符指定缺省的扩展 文件名
filter:string类型,可选项,其值为文件名掩码,指定显示在该对话框的列表框中供用户选择的文件名满足的条件(比 如*.*,*.TXT,*.EXE等)返回值Integer。
函数执行成功时返回1;当用户单击了对话框上的“Cancel”按钮时函数返回0;发生错误 时返回-1。如果任何参数的值为NULL,那么GetFileOpenName()函数返回NULL。
用法filter参数的格式为:description,*. ext缺省值为:"All Files (*.*),*.*"其中,description说明扩展名的意义,比如“所有文件”、“文本文件”等。你可以根据需要指定在打开文件对话框中显示的文 件名类型。
当需要指定多种文件类型时,各类型之间使用逗号分隔,例如:"PIF 文件, *.PIF, 批处理文件, *.BAT"需要注意的是,该函数只是得到一个文件名,而并没有打开文件,需要打开文件时,依然需要使用FileOpen()函数。
![](http://img1.51cto.com/attachment/200805/200805061210064612765.jpg)
GetFileOpenName('请选择导入的文件', ls_filepath, ls_filename, "xls", "EXCEL文件 ("*.xls"), *.xls")
--------------------------------------------------------------------------------------------
string docpath,docname[]
integer li_rtn
li_rtn = GetFileOpenName("选择图片",docpath,docname[],"","JPEG图像(*.JPG),*.JPG,"+"BMP图像(*.BMP),*.BMP" &
+"GIF图像(*。GIF),*.GIF,"+"所有文件(*.*)","c:AddressListPic",18)
--------------------------------------------------------------------------------------------
string docpath,docname[]
integer li_rtn
li_rtn = GetFileOpenName("选择图片",docpath,docname[],"","JPEG图像(*.JPG),*.JPG,"+"BMP图像(*.BMP),*.BMP" &
+"GIF图像(*。GIF),*.GIF,"+"所有文件(*.*)","c:AddressListPic",18)