我保存文件时如何确定与已存在的文件名不重复呀？

Question

我保存文件时如何确定与已存在的文件名不重复呀？

Answer 1

Private Sub save_Click()
Dim Filename As String
打开.CancelError = True
On Error GoTo errhandler
Commondialog1.Filter = "all files(*.*)|*.*|Text files(*.txt)|*.txt|Word 文件(*.doc)|*.doc|演示文稿(*.ppt)|*.ppt"
Commondialog1.FilterIndex = 1
Commondialog1.ShowSave
Filename = Commondialog1.Filename
if fileexist(commondialog1.filename)=true then
   dim ret
   ret=msgbox("是否覆盖？",vbqu+vbyesno)
   if ret=vbno then
   exit sub
   endif
   RichTextBox1.SaveFile Filename, rtfRTF
else
   RichTextBox1.SaveFile Filename, rtfRTF
endif
errhandler:
Exit Sub
End SubPublic Function FileExist(filename As String) As Boolean
  On Error GoTo NotExist
  Call FileLen(filename)
  FileExist = True
  Exit Function
NotExist:
End Function