File not found

[ویز ویز بیسیک]

اگه یه برنامه چند تا فایل همراهش باشه در صورت نبود یکی از اون فایل ها ، برنامه ی ساخته شده هنگام اجرا پیغام File not found رو میده ...
حالا اگه من بخوام در صورت نبودن یکی از فایل ها این پیغام رو نده و خودم یه پیغام مناسب تر براش بنویسم باید از چه کدی استفاده کنم ؟
امیدوارم واضح گفته باشم ...
از همه دوستان ممنونم

[subsub]

روش اول:
یه کنترل هست به نام File System Object یا FSO که در رابطه با کار کردن با فایلها هست.
البته وی بی اونا به نام Microsoft Scripting RunTime یا چیزی شبیه به این می شناسه.
یه متد داره به نام FileExist که چک می کنه فایل مورد نظر وجود داره یا نه. البته این روش رو پیشنهاد نمی کنم.

روش دوم:
یه عنصری هست تو وی بی به نام Err که نیاز به اضافه کردن به برنامه نداره. مثل screen
این عنصر چند خاصیت داره که یکی از اونا Number هست که شماره خطا رو بر می گردونه. می تونی با مقایسه شماره خطای ایجاد شده و خطای مورد نظر کد بنویسی.
البته باید قبل از دسترسی به فایل که موجب خطا می شه، دستور زیر رو بنویسی

On Error Goto LabelName

که LabelName نام یک برچسب توی روال مورد نظره که به صورت زیر تعریف می شه. (مثلاً برای رویه Load فرم):

Private Sub Form_Load()

'دستورات

Exit Sub

labelname:

'دستورات برچسب

End Sub

[riyahiyan]

روش دوستمون روش اصولی و درستیه در عین حال دستور on error resume next از خطاهایی که در اون روال اتفاق میافته صرف نظر میکنه.

[ویز ویز بیسیک]

از راهنمایی شما دوستان خوبم بسیار سپاسگذارم ...
آموزش جالبی بود