当点击保存时,如果在"C:\"中有一个1.TXT文档,当我现在打开的文档也要保存在"C:\1.TXT",要怎么样去判断路径中有一个1.TXT了.还要弹出一个对话框是否要替代文档...
我用了CommonDialog,请版主指点下....谢谢

[[it] 本帖最后由 lyk997 于 2008-10-11 15:37 编辑 [/it]]

cdlOFNOverwritePrompt                     &H2                  使“另存为”对话框当选择的文件已经存在时应产生一个信息框，用户必须确认是否覆盖该文件。

加上这个flag应该就可以了

能给出源代码可以吗???

dir

我现在就是用的这个,但不知要具体代码怎么写,请给出源代码可以吗?  谢谢了....

已解决了
分享下源代码,请高手们指点下是否有误...        
 Private Sub FileSave_Click()
    If bFirstSave = True Then
er:
        CommonDialog1.FileName = ""
        CommonDialog1.ShowSave
        strPath = CommonDialog1.FileName
        If strPath <> "" Then
          If Dir(strPath) <> "" Then
            If MsgBox(strPath & "此路径已存在是否要替代它!", vbYesNo + 64, "提示") = vbYes Then
                    Call sName
                    Open strPath For Output As #1
                        Print #1, Text1.Text
                    Close #1
                    bFirstSave = False
                    Form1.Caption = strName & " - 记事本"
                Else
                    GoTo er
                End If
            Else
                Call sName
                If strPath <> "" Then
                    Open strPath For Output As #1
                        Print #1, Text1.Text
                    Close #1
                    bFirstSave = False
                    Form1.Caption = strName & " - 记事本"
                End If
            End If
        End If
    Else
        Open strPath For Output As #1
            Print #1, Text1.Text
        Close #1
    End If
End Sub

一方面是不建议用GOTO语句，还有就是判断字符串是否为空最好用Len函数与0比较。嗯，鸡蛋里挑骨头就找到这点问题了。

不过我觉得2楼的方法更方便。他提到一个Flags标志，你找找Flags和Common Dialogs有什么关系。

谢谢版主的指点,现在能用CommonDialogs.Flags,谢谢了