Question

vb中commondialog的问题

当action属性为2时,即保存操作,那么如果保存的filename是已经存在的,要提示这个名字的文件已存在的程序编码要怎么编写.

Answer 1

CommonDialog1.ShowSave '显示保存对话框
If CommonDialog1.FileName <> "" Then '这个是为了避免点击取消还继续执行下面语句用的,先判断下有没选择保存路径
If Dir(CommonDialog1.FileName) <> "" Then '搜索所保存的文件路径,判断文件是否已经存在
If MsgBox("文件已存在,是否覆盖?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
'save file
Else '如果点击了不覆盖文件则把保存对话框在显示出来
CommonDialog1.InitDir = CommonDialog1.FileName
CommonDialog1.ShowSave
End If
End If
End If

Answer 2

直接想让对话框在关闭前提示好像不行,不过可以变通一下,在保存前先判断下文件是否存在先,比如:
Private Sub Command1_Click()
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
If Dir(CommonDialog1.FileName) <> "" Then
If MsgBox("文件已存在,是否覆盖?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
'save file
Else
CommonDialog1.InitDir = CommonDialog1.FileName
CommonDialog1.ShowSave
End If
End If
End If
End Sub

Answer 3

我怎么加你,你加我把QQ7114370:CommonDialog问题