我心中的道德典范:亡羊补牢 请高手帮忙{commonDialog}

来源:百度文库 编辑:高校问答 时间:2024/05/07 02:42:36
用commonDialog "另存为"保存文件,如何辨别现输入的文件名是否与该路径下的文件同名,并做出提示.(不然,它会覆盖,麻烦大了),请各位指点迷津!希望附上代码.

Do
CommonDialog1.showsave
If Len(Dir(CommonDialog1.FileName)) < 1 Then Exit Do
If MsgBox("文件已存在,覆盖吗?", vbYesNo) = vbYes Then Exit Do
Loop