منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
درس سريع - للمبتدئين التعامل مع App.path لتثبيت المسار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مقالات vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=29)
+---- الموضوع : درس سريع - للمبتدئين التعامل مع App.path لتثبيت المسار (/showthread.php?tid=5594)

درس سريع - للمبتدئين التعامل مع App.path لتثبيت المسار - RaggiTech - 14-10-12

كاتب الموضوع : أحمد جمال


[SIZE=5]للمبتدئين : التعامل مع App.path
[/SIZE]

App.path تعني مسار البرنامج ، وهي تستخدم للحصول على مسار المجلد الذي يوجد فيه البرنامج .
فمثلاً إذا كان لدينا برنامج في C:\New فهذا هو مسار البرنامج والذي يمكننا الحصول عليه باستخدام App.path
وللتجربة يمكنك الحصول على مسار برنامجك بواسطة أمر هكذا :

كود :
Msgbox App.path
وسترى أنه يعطيك مسار المجلد الذي تحفظ فيه المشروع .

الفائدة من ذلك هو تلافي مشكلة تغير المسارات من جهاز لآخر ، فمثلاً في برنامج للصور ضع جميع الصور في نفس مجلد البرنامج ، ولتحميل صورة مثلاً اسمها PP1 وامتدادها Bmp اكتب :

كود :
Picture1.Picture = Loadpicture(App.path & "\PP1.Bmp")


ويمكنك أيضاً إنشاء مجلد جديد في نفس مجلد البرنامج وتسميه مثلاً Image وتضع فيه الصور ، وبذلك يصبح أمر تحميل الصور بالشكل التالي :

كود :
Picture1.Picture = Loadpicture(App.path & "\Image\PP1.Bmp")


وليست الصور هي كل ما نستخدم فيها App.path بل كل شيء ، فمثلاً لتشغيل ملف مفكرة ملحق بالبرنامج نضعه في مجلد البرنامج ونكتب :

كود :
Shell "notepad.exe" & " " & App.path & "\RedMe.txt", vbNormalFocus


ولنسخ نفس البرنامج نستخدم الأمر التالي :

كود :
Filecopy App.path & App.EXEName , "C:\Ahmed"


وهكذا ، وتوجد لـ App العديد من الفوائد التي لا يتسع المجال لذكرها ، ومنها مثلاً إنهاء البرنامج إذا لم يكن يعمل من القرص المدمج ، واستخدامها في أوامر حفظ البيانات واسترجاعها ، ومنع تشغيل أكثر من نسخة .... الخ

لكن ينبغي التنبه إلى أن App.path قد تعطينا C:\Ahmed أو C:\Ahmed\ ولتلافي هذه المشكلة نقوم بالتالي :

كود :
Dim Folder
Folder = App.path
If Right(Folder,1) <> "\" then Folder = Folder & "\"
هنا قمنا بتعريف متغير وخزنا فيه مسار البرنامج ، واختبرناه ، فإذا كان آخر حرف من اليمين لا يساوي \ فإننا نقوم باضافتها إليه .

وهكذا نتعامل مع الناتج والمخزن في المتغير Folder كأنه يحتوي على \ مباشرة ، ولذا لا حاجة لكتابتها قبل كتابة اسم الملف .


بالتوفيق للجميع .
والسلام عليكم ورحمة الله وبركاته .

درس سريع - للمبتدئين التعامل مع App.path لتثبيت المسار - RaggiTech - 14-10-12

كاتب المشاركة : muttardi

أخي الكريم .. أحب التعقيب على كلامك في نقطة .. أنا غالباً ما أستخدم متغير بالطريقة التي ذكرتها

كود :
Dim Folder
Folder = App.path
If Right(Folder,1) <> "\" then Folder = Folder & "\"
ولكن تصحيحاً لكلامك .. العملية ليست عشوائية في إنه بعض الأحيان تكون الشرطة المائلة \ موجودة وأحياناً غير موجودة ..فهي في العادة دائما غير موجودة ما عدا في حالة واحدة وهي إذا كان الملف على Root لأحد الأقراص ... يعني مثلا C:\ D:\ F:\ ... etc