View Full Version : سوال: replace در پنجره دیالوگ
look20
چهارشنبه 15 اردیبهشت 1389, 20:30 عصر
با سلام
ببخشید من توی فرمم قسمت دیالوگ تعریف کردم پنجره save باز بشه و یه فایل ساخته میشه
حالا میخام اگه هم نام این فایل وجود داشت یه پیغام بده که بتونم اگه خاستم replace کنم یا نه
Netsky
چهارشنبه 15 اردیبهشت 1389, 20:47 عصر
سلام .
من الان ديگه خيلي وقته كه با ويبي 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
چهارشنبه 15 اردیبهشت 1389, 21:55 عصر
سلام ببخشید کدو کجا باید قرار بدم در ضمن این قسمت کد ارور میده Dim FSO As New FileSystemObject
Netsky
چهارشنبه 15 اردیبهشت 1389, 22:17 عصر
سلام دوست عزيز .
ببين اين كد رو بايد درقسمتي كه ميخايد عمليات ذخيره سازي رو شروع كنيد ، بگذاريد . مثل يه دكمه ميزاريد واسه Save كردن فايل . همونجا اين كد رو بزاريد .
در مورد FSO هم بايد از منوي Project گزينه Reference رو بزنيد و تيك اين گزينه يعني Microsoft Scripting Runtime رو بزنيد .
مشكل حل ميشه .
موفق باشيد ..............
butterfly8528
پنج شنبه 16 اردیبهشت 1389, 03:24 صبح
سلام دوست عزیز .
روش 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
موفق باشید .
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.