PDA

View Full Version : چک کردن وجود فایل روی پنجره ذخیره سازی



hamid-nice
یک شنبه 13 اسفند 1391, 06:37 صبح
سلام

یک فایل ضمیمه کردم می خوام با زدن open در پنجره ای که باز می شه وقتی نام فایل دا در قسمت File Name می نویسم چک کنه که آیا در فولدری که قرار گرفتیم فایلی با نام مشابه وجود دارد اگر دارد یک پیام صادر کنه که دگمه yes و No داشته باشه
که با زدن کلید yes این پیغام بسته بشه و کلید open به کارش ادامه بده( در واقع تنها یک پیام میانی قبل از انجام کار دگمه open باشه که مثلا برای هشدار قیل از عمل دگمه open عمل کنه که بیاد و بره ) ولی با زدن کلید No پیغام بسته بشه ولی پنجره باز بمونه و دوباره به قسمت File name بره برای نوشتن مجدد نام دیگه

من از این پنجره برای ذخیره سازی استفاده می کنم اگر بشه کلمه open را هم به save تغییر کنه خیلی خوب وگرنه مهم نیست



با تشکر فراوان

hamid-nice
یک شنبه 13 اسفند 1391, 22:08 عصر
سلام به همه دوستان

کسی نیست که بتونه این کار را انجام بده ؟

منتظر راهنمایی عزیزان هستم

با تشکر

Abbas Amiri
یک شنبه 13 اسفند 1391, 23:17 عصر
سلام
فکر نکنم در زمان باز بودن کادر فایل دیالوگ موفق به اینکار بشید باید بعد و یا قبل از باز شدن اینکار رو انجام بدیدودر آن صورت ، برای این مورد ازتابع Dir استفاده کنید


If Dir(strFullPath) <> "" Then
If MsgBox("Your Massage", vbYesNo,"") = vbNo Then Exit Sub
End If

hamid-nice
دوشنبه 12 فروردین 1392, 13:56 عصر
سلام
فکر کنم مشکل در عبارت strFullPath هست چون موقع اجرا error میده که Not variable Not defined