بسم الله الرحمن الرحيم:
-:- الدالة المذكوره في هذا الموضوع منقولة من كتاب "Visual Basic للجميع - نحو برمجة كائنية التوجه OOP" للكاتب والاستاذ تركي العسيري -:-
الكل يعرف الخاصية Path التابعة للكائن App والتي تعود بالمسار الحالي للبرنامج الذي يعمل منه.
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
الا تجد انه من الضروري اضافة "\" اذا كان البرنامج لايعمل من الدليل الجذري.
ماذا لو قام المستخدم بتشغيل البرنامج من الدليل الجذري Boot Directory للقرص.
لاحظ الرمز "\" في الخاصية Path اذا تم تشغيل البرنامج من الدليل الجذري او الفرعي.
App.Path = "C:\" 'الرمز مضاف
App.Path = "C:\MyProgram" 'الرمز غير مضاف
ولكي تتفادى حدوث اية مشاكل عند تشغيل البرنامج من الدليل الجذري او الفرعي استخدم هذه الدالة في برامجك.
Function PathEx() As String if Right(App.Path,1) ="\" Then PathEx = App.Path Else PathEx = App.Path & "\" End If End Function
Open PathEx & App.EXEName & ".exe" For Binary As #1