App.path تعني مسار البرنامج ، وهي تستخدم للحصول على مسار المجلد الذي يوجد فيه البرنامج .
فمثلاً إذا كان لدينا برنامج في C:\New فهذا هو مسار البرنامج والذي يمكننا الحصول عليه باستخدام App.path
وللتجربة يمكنك الحصول على مسار برنامجك بواسطة أمر هكذا :
Msgbox App.path
يعطيك مسار المجلد الموجود به المشروع
فمثلاً لو لديك ببرنامجك صور كثير ضع جميع الصور في نفس مجلد البرنامج ، ولتحميل صورة مثلاً اسمها shams وامتدادها Bmp اكتب :
Picture1.Picture = Loadpicture(App.path & "\PP1.Bmp")
و ليست الصور فقط بل يمكنك تطبيق المثال السابق على اي ملف موجود بنفس مجلد برنامجك
لكن ينبغي التنبه إلى أن App.path قد تعطينا C:\Ahmed أو C:\Ahmed\ ولتلافي هذه المشكلة نقوم بالتالي :
Dim Folder Folder = App.path If Right(Folder,1) <> "\" then Folder = Folder & "\"
هنا قمنا بتعريف متغير وخزنا فيه مسار البرنامج ، واختبرناه ، فإذا كان آخر حرف من اليمين لا يساوي \ فإننا نقوم باضافتها إليه .
وهكذا نتعامل مع الناتج والمخزن في المتغير Folder كأنه يحتوي على \ مباشرة ، ولذا لا حاجة لكتابتها قبل كتابة اسم الملف .
