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

[look20]

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

[Netsky]

سلام .
من الان ديگه خيلي وقته كه با ويبي 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

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

[look20]

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

[Netsky]

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

[butterfly8528]

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

روش 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


موفق باشید .