با سلام
ببخشید من توی فرمم قسمت دیالوگ تعریف کردم پنجره save باز بشه و یه فایل ساخته میشه
حالا میخام اگه هم نام این فایل وجود داشت یه پیغام بده که بتونم اگه خاستم 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
موفق باشید .
پاسخ با نقل قول
