integer li_rn string ls_filepath,ls_filename,ls_filetype ls_filetype = "Excel文件(*.xls),*.xls,文本文件(*.txt),*.txt,网页文件(*.html),*.html,所有文件(*.*),*.*" goto cnn cnn: li_rn = getfilesavename ("保存文件",ls_filepath,ls_filename,'excel文件',ls_filetype) if li_rn = 0 then return 0 if fileexists(ls_filepath) then if messagebox('',ls_filepath +'已存在。~r~n要替换它吗?',exclamation!,yesno!) = 2 then goto cnn end if end if if li_rn <> 1 then return 0 tab_1.tabpage_1.dw_1.saveasascii(ls_filepath,"~t","") return 1
转载于:https://www.cnblogs.com/lenya/archive/2010/11/12/3706975.html