سوال در مورد CommonDialog
سلام دوستان بزرگوار
من از یک کامند دیالوگ برای ذخیره یک فایل استفاده میکنم
میخوام وقتی کاربر یک نام برای اون فایل انتخاب میکنه اگر همانند اسم اون فایل در اون مکان وجود داشت ، یک پیغام صادر کنه؟؟
حالا چطوری این کار میتونم انجام بدم؟؟
ممنون میشم اگه راهنمایی بفرمایید
با تشکر
نقل قول: سوال در مورد CommonDialog
شما باید اینو قبل از ذخیره چک کنی که آیا فایل در مسیر موجود است یا نه :
1- مسیر فایل رو بگیری مثلا شما درایو C رو برای ذخیره انتخاب کردی
2- بررسی می کنی که آیا فایل ذخره شده شما در مسیر موجود است یا نه ..
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Function FileExist(FPath As String) As Boolean
FileExist = CBool(PathFileExists(FPath))
End Function
Private Sub Form_Initialize()
If Not FileExist("مسیر فایل مورد نظر") Then
End
End If
End Sub
3- اگر فایل مورد نظر شما با فایل ذخیره شده شما همنام باشد پیغام نشان دهد .
نقل قول: سوال در مورد CommonDialog
سلام علیکم
همینطور میتونیم از ثابت cdlOFNOverwritePrompt استفاده کنیم
Private Sub Command1_Click()
With CommonDialog1
.Flags = cdlOFNOverwritePrompt
.ShowSave
End With
End Sub
موفق باشید
نقل قول: سوال در مورد CommonDialog
دوست عزیز همین مشکل رو من توی لود کردن عکس دارم با On erorr Resume Next هم حل نشد یعنی این کد کار نمی کنه میخوام مثلا کاربر وقتی یه اسم الکی توی filename نوشت و اوپن رو زد اگر عکس داخل اون مسیر نبود پیغام بده که عکسی با این نام موجود نیست چطور می تونم این رو به کامن دیالوگ تعریف کنم؟
نقل قول: سوال در مورد CommonDialog
نقل قول: سوال در مورد CommonDialog
بیا این هم کد کامل و بدون عیب و نقص با توضیحات کامل. فقط یک تکس باکس و دکمه و یک کامند دایالوگ بزار روی صفحه ات
CommonDialog1.ShowSave 'فايل نمايش ذخيره را نشان ميده
' فقط نام فايل را اينجا مياره آدرس = کامل برنامه را دراينجا مياره
If Dir(CommonDialog1.FileName) = CommonDialog1.FileTitle Then
Select Case MsgBox("There is a file with the name. Do You Want Save", vbYesNo Or vbExclamation Or vbDefaultButton1, "Note:") 'اگر فايل مجود بود آيا مي خواهي ذخيره کني
Case vbYes 'اگر بله
aa = FreeFile 'يک فايل باز کن روش
Open CommonDialog1.FileName For Output As #aa 'ادرس رو بهش ميده و يک فايل درست ميکنه
Print #aa, Text1.Text 'متن تکس را چاپ ميکنه
Close #aa 'و اخرش فايل رو ميبنده
End Select
Else 'اگر فايل موجود نبود
aa = FreeFile 'پس يکي جديد بساز
Open CommonDialog1.FileName For Output As #aa
Print #aa, Text1.Text
Close #aa
End If ' هيچي ديگه . پايان
و آخر پایین این صفحه یک دکمه هست به نام تشکر کردن. اونو فشار بده. (تا برنده خوش شانس قرعه کشی امشب ما بشی)