请问谁有实现微软EXCEL的另存为窗口那样的样子的方法（在点击保存后，如文件已存在会提示文件已存在）？

Question

可以判断文件是否存在，如存在，再showsave
  If commDialog.FileName <> "" Then
      If Dir(commDialog.FileName) <> "" Then
          If MsgBox("文件已经存在，要覆盖吗？", vbQuestion + vbYesNo, mstrErrorTitle) = vbYes Then
              Kill (commDialog.FileName)
              Call Save()
           Else
              commDialog.ShowSave
           End If
       End If
       Call Save()
   End If

Answer 1

使用Micorosft Common Dialog Cotrol 控件。调用ShowSave之前设置 flags = cdlOFNOverwritePrompt.