درخواست یک Api جهت جستجوی فایل

[Restlesa]

سلام بر همگی دوستان عزیز برنامه نویس
آیا api وجود داره که بشه باهاش فهمید که آیا یه فایل با یه اسم و پسوند خاص و تعیین شده در سیستم وجود داره یا نه ؟؟؟؟
برای استفاده در منوی Save As ام می خوام

[_behnam_]

نیازی به API نیست!
If Dir("FILE PATH") = "" Then MsgBox "NO FILE " Else MsgBox "YES FILE"

[xxxxx_xxxxx]

سلام،
تابع SearchTreeForFile


سرچ کردن یک پسوند خاص در ویندوز (http://barnamenevis.org/showthread.php?155664-%D8%B3%D8%B1%DA%86-%DA%A9%D8%B1%D8%AF%D9%86-%DB%8C%DA%A9-%D9%BE%D8%B3%D9%88%D9%86%D8%AF-%D8%AE%D8%A7%D8%B5-%D8%AF%D8%B1-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2) (فایل ضمیمه در پست شماره 9)

[Restlesa]

دوست عزيز ممنونم از پاسختون اما اين دستور بنا به فرمايش جناب Parselearn و آزمايش خود بنده يك ايراد بزرگ و مهم داره كه در پستي كه برام قرار دادي ذكر شده
مشكل من كه باعث ايجاد اين تاپيك شده اين هستش كه يه برنامه اي دارم كه داراي خاصيت چند لبه بودن هستش و وقتي كه در Tab1 هستش و اطلاعاتم رو وارد مي كنم و روي دكمه Save كليك مي كنم اطلاعات بدون هيچ مشكلي ذخيره ميشن اما وقتي يه Tab جديد باز مي كنم و يه سري اطلاعات ديگه به Tab2 اضافه مي كنم و روي دكمه Save كليك مي كنم اطلاعات Tab2 بر روي اصلاعات Tab1 ذخيره ميشن و اطلاعات ذخيره شده در Tab1 از بين ميرن
به كد زير توجه كنيد :
Public Sub SaveFile()
If AddressFile = "" Then
Call SaveAsFile
Exit Sub
End If
On Error Resume Next
If Err.Number = cdlCancel Then
Cancel = 1
Else
Open CommonDialog.FileName For Random As #1 Len = Len(NewAUCFile)
Records = LOF(1) \ Len(NewAUCFile)
Put #1, Records + 1, NewAUCFile
Close #1
ActiveForm.Caption = SetCaptionForm
FState(ActiveForm.Tag).Dirty = False
End If
End Sub
Public Sub SaveAsFile()
CommonDialog.CancelError = False
CommonDialog.Flags = cdlOFNOverwritePrompt
CommonDialog.FileName = Me.ActiveForm.Caption
CommonDialog.DialogTitle = "Save As Data Base ..."
CommonDialog.Filter = "Advanced URL Catalog file|*.auc|All Files|*.*"
CommonDialog.ShowSave

If CommonDialog.FileName = "" Or CommonDialog.FileName = Me.ActiveForm.Caption Then
Exit Sub
Else
Open CommonDialog.FileName For Random As #1 Len = Len(NewAUCFile)
Records = LOF(1) \ Len(NewAUCFile)
Put #1, Records + 1, NewAUCFile
Close #1
End If
ActiveForm.Caption = SetCaptionForm
FState(ActiveForm.Tag).Dirty = False
AddressFile = CommonDialog.FileName
End Sub
اين كد اگر برنامه ام داراي خاصيت چند لبه نبود به درستي كار مي كرد اما حالا كه اين خاصيت بر روي برنامه ام پياده كردم و نمي تونم هم حذفش كنم خط If AddressFile = "" Then در Sub SaveFile غلط هستش و مشكلي رو كه عرض كردم رو به وجود مياره
هر دو كاري كه شما دو دوست عزيز گفتيم امتحان كردم اما مشكلم برطرف نشد
راه حل دوست عزيزم آقا بهنام رو كه پياده سازي كردم به هيچ عنوان وارد دستور شرطي AddressFile نميشد و يه راست ميرفت سره دستور open و باز كردن فايل كه با پيغام خطاي Pass/File access error رو ميده كه طبيعي هم هست و راه حل مدير محترم بخش هم به دستي عمل مي كنه اما تنها يكبار اجرا ميشه اونم به دليلي كه در ابتداي اين پست عرض كردم
راه حل ديگه اي وجود داره ؟؟؟؟ :ناراحت::ناراحت::ناراحت:

[Restlesa]

كسي نيست اين مشكل ما رو حل كنه ؟؟؟؟
بدجوري كارم گيره

[vbhamed]

سلام
خب براي اين كار شما بايد نام فايلتون رو عوض كنيد، شما دائما نام فايل رو برابر كپشن فرم قرار مي‌دين و قاعدتا روي فايل قبلي نوشته ميشه
مي‌تونيد شماره Tab رو هم به انتهاي نام فايل اضافه كنيد تا مشكل رفع بشه

[Restlesa]

کاری رو که گفتی انجام دادم اما هم چنان مشکلم پابرجاست
ایا به غیر از api ای که مدیر محترم بخش معرفی کردن api دیگه ای وجود داره بهم معرفیش کنین ؟؟؟؟

[vbhamed]

سلام

خب نمونه كدتون رو قرار بدين
حتما يه جايي اشتباه كردين

[Restlesa]

نمونه كد در پست 4 قرار داده شده

[vbhamed]

سلام

منظورم برنامه اصلي بود نه اين قسمت ذخيره سازي

[kitcat_m18]

دوست عزيز اينجا وقا براي دوباره کاري نداريم!

اون قسمت سورس برنامت رو که توش مشکل داري بايد بزاري که بشه بهت جواب داد وگرنه اينطوري که فقط ميشه يه نگاه به پستت انداخت و بدون جواب رهاش کرد
در ضمن لطف کن عنوان مناسبت تري رو براي پست هات انتخاب کن که مفهوم رو برسونه

موفق باشي :لبخندساده:

[Restlesa]

سلام
اينم سورس اون قسمت از برنامه ام كه توش مشكل دارم

دانلود سورس (http://www.persiangig.com/pages/download/?dl=http://mohammadhesam.persiangig.com/document/SaveFile.rar)

[Restlesa]

سورس خواستين قرار دادم
ميشه حالا لطف كنين و مشكلم رو برطرف كنيد

[vbhamed]

سلام

1 - دستور AddressFile = "" رو در آخر متد LoadNewDoc قرار بديد
2 - متد SetCaptionForm رو هنگام تعويض Tab هم فراخواني كنيد

[Restlesa]

2 - متد SetCaptionForm رو هنگام تعويض Tab هم فراخواني كنيد
دقيقا كجاي برنامه ام ميشه ؟؟؟ :خجالت::خجالت::خجالت: