GetFileOpenName()、GetFilesavename

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()函数。

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)