replace در پنجره دیالوگ

با سلام
ببخشید من توی فرمم قسمت دیالوگ تعریف کردم پنجره save باز بشه و یه فایل ساخته میشه
حالا میخام اگه هم نام این فایل وجود داشت یه پیغام بده که بتونم اگه خاستم replace کنم یا نه

سلام .
من الان ديگه خيلي وقته كه با ويبي 6 كار نميكنم ولي اين كد رو نوشتم . فكر كنم درست كار كنه . البته ويبي نداشتم تست كنم .

Dim FSO As New FileSystemObject

cmd1.ShowSave

If FSO.FileExists(cmd1.FileName) = True Then

Dim RES As String



    RES = MsgBox("Do You Want Replace it?", vbYesNo)

    If RES = vbYes Then

      MsgBox "saved"

    End If

End If

موفق باشيد ........

سلام ببخشید کدو کجا باید قرار بدم در ضمن این قسمت کد ارور میده Dim FSO As New FileSystemObject

سلام دوست عزيز .
ببين اين كد رو بايد درقسمتي كه ميخايد عمليات ذخيره سازي رو شروع كنيد ، بگذاريد . مثل يه دكمه ميزاريد واسه Save كردن فايل . همونجا اين كد رو بزاريد .
در مورد FSO هم بايد از منوي Project گزينه Reference رو بزنيد و تيك اين گزينه يعني Microsoft Scripting Runtime رو بزنيد .
مشكل حل ميشه .
موفق باشيد ..............

سلام دوست عزیز .

روش netsky عزیز هم درسته اما اگه میخوای از fso استفاده نکنی، از کد زیر استفاده کن :

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long



Private Sub cmdsave_Click()

cmd1.ShowSave

If CBool(PathFileExists(cmd1.FileName)) = True Then

Dim RES As String

    RES = MsgBox("Do You Want Replace it?", vbYesNo)

    If RES = vbYes Then

      MsgBox "saved"

    End If

End If

End Sub

موفق باشید .