hur.cn - 华软网

 热门搜索

用SaveAsAscii()将dw_1保存为EXCEL时,不能提示覆盖原来的相同文件名的excel文件

  作者:未知    来源:网络    更新时间:2019/6/11
如题,我用以下代码
string   docname,   named   
    
  integer   value   
  value   =   GetFileSaveName("选择资料",docname,   named,   "XLS","Excel   Files   (*.XLS),*.XLS")   
    
  IF   value   =   1   THEN     
  dw_1.saveasascii(docname,"~t")     
  END   IF 

发现保存为EXCEL时,不能提醒笼罩原来的相同资料名的excel资料,而是直接笼罩了过去,这样会容易产生误操作。请大侠给出改善措施,谢谢!!!

------华软网友回答------
先用FileExists判断一下
------华软网友回复------
string docname, named

integer value
value = GetFileSaveName("选择资料",docname, named, "XLS","Excel Files (*.XLS),*.XLS")

IF value = 1 THEN
  if FileExists(docname) then
    if MessageBox("笼罩提醒","资料:" + docname + "已存留,要替换吗?",Question!,YesNo!) = 2 then return
  end if
dw_1.saveasascii(docname,"~t")
END IF
------华软网友回复------
楼上的偶像      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。