关于CommonDialog控件的菜鸟问题，怎样实现另存为的时候文件已存在提示覆盖？

Question

关于CommonDialog控件的菜鸟问题，怎样实现另存为的时候文件已存在则提示覆盖？当文件已存在时我点保存后窗口就关闭了，并没有提示也没有覆盖。初学vb，各位大虾见笑了！

Answer 1

'只要将Flags 设为cdlOFNOverwritePrompt就行了.例如:
Private Sub Command1_Click()
CommonDialog1.Flags = cdlOFNOverwritePrompt'这样就如果文件已经存在就会有提示了
CommonDialog1.ShowSave
End Sub

Answer 2

dlg.showsave
if dir (dlg.filename) then
 if msgbox "....",vbOKCancel = vbOK then
   kill(....)
   copy .. , ..
 end if
end if