فتح القاعدة باستعمال الخاصية app.path

الكود الثاني أصح بالطبع ... وذلك لإن App.path قد يعطيك المسار مع / وقد يعطيك بدونها ، وهذا يختلف من جهاز لآخر ، ولتلافي هذه المشكلة نقوم باستخدام الأمر الثاني .

للمزيد من التوضيح حول App.path راجع الرابط التالي :http://www.vb4arab.com/vb/showthread.php?s=&threadid=24599

السلام عليكم,

قد نستعمل تقنية app.path وهنا كما يعرف الكل أن القاعدة تكون في نفس المسار أو مسارا نسبيا لهدا الأخير وهدا الأخير يعتبر نوعا من القيد نالنسبة للمستعمل حيث يمكن أن تلقى مستعملا يريد جمع جميع القواعد في مجلد ما أو ينقل القاعدة عن طريق الخطء.

ولهدا شخصيا أفضل تقنية ملف التثبيت أو File of configuration .فالبرنامج لو لم يعثر على القاعدة في مساره يمكن أن يبحث عنها أو يطلب من المستعمل اعطاؤه مسارها أو البحث عنها وتسجل المعلومات في ملف التثبيت.

والسلام عليكم.

مشكووور اخي فتى الفيجول وترى ارسلت لك رساله خاصه يخصوص ذلك0

0000000000000

اخي شيك

اشكرك وياليت مزيدا من التوضيح لانني اتوقع انك خبير فى ذلك 0000

السلام عليكم,

هنا سأقطرح طريقة لنكتب ونقرأ بعض التثبيتات التي نريدها لبرنامجنا في ومن قاعدة الريجستر .

هنا سأقترح مثالا لنسجل مسار ملف ما والطريقة قد تعمل لعدة أشياء أخرى.

إن البرنامج يحاول أن يفتح ملفا يسمى Test.txt ومن المفروض أولا أن يكون موجودا في مسار البرنامج ولكن إدا لم يعثر عليه هناك سيفتح نافدة لفتح الملف وبعد دلك يسجل المسار الجديد وفي المراة القادمة يبحث عنه في هدا المسار الجديد حتى نغير المسار من جديد.

لنكتب التثبيت نستعمل الدالة :

SaveSetting "Chik_App", "PathOfFile", "PathF", Dial.FileName

Chik_App هو المفتاح الأول للرجستر وغالبا ما نعطيه اسم البرنامج

PathOfFile اسم المفتاح الثاني يأتي بعده الثالث ثم قيمة المفتاح الأخير وهنا سيكون هو مسار الملف الدي نريد فتحه.

ولقراء التثبيت نستعمل العكس :

chemin = GetSetting("Chik_App", "PathOfFile", "PathF")

حيث هنا chemin سيأخد القيمة المسجلة في PathF .

وها هو الكود وهو يحتوي على TextBox اسمه TextBox1 وعلى CommonDialog اسمه Dial .

لكي نجرب البرنامج نخلق ملفا Test.txt ونجعله في مسار البرنامج ونلاحظ أنه سوف يفتح. بعد دلك ننقل هدا الملف إلى مسار آخر ونشغل البرنامج يعطينا نافدة فتح البرنامج ويسجل المسار الجديد وفي المرة القادمة يبحث عنه في هدا المسار ويمكن تغييره من جديد حتى نلاحظ أنه كلما تغير المسار كلما طلب منا المسار الجديد.

هده مجرد فكرة وكل واحد يمكنه تطويرها واستعمالها حسب حاجياته

اليكم الكود :

Private Sub Form_Load()

chemin = GetSetting("Chik_App", "PathOfFile", "PathF")

If chemin = "" Then chemin = App.Path & "\Test.txt"

Text1.Text = chemin

On Error GoTo 100

Open chemin For Input As #1

MsgBox "File Opened Successfully - إن الملف قد فتح"

Close #1

Exit Sub

100:

Dial.ShowOpen

SaveSetting "Chik_App", "PathOfFile", "PathF", Dial.FileName

End Sub

حين تسجل المعطيات في الرجستر يمكنكم رِيتها في الفتاح التالي في الرجستر :

HKEY_CURRENT_USER\Software\VB And VBA Program Setting

تلاحظون وجود المفتاح Chik_App وما تحته.

أتمنى أن يكون في هدا إفادة وإلى اللقاء.

مشكووووووووووووووووووووووووووور اخي chik

وتوقعي فى محله 000 اشكرك على هذه المعلومات وفقك الله 00

مشكور با سيدي على معلوماتك القيمه

شكرا لجميع الاخوة المشرفين