الأخوة الأعزاء
السلام عليكم ورحمة الله وبركاته
عندي ملف تنفيذي EXE وأريد أن أشغله عن طريق زر في برنامجي المصمم بالأكسس . ما هو الكود المطلوب لتشغيل الملف التنفيذي .
علماً أن مسار الملف يتغير من جهاز لآخر . ( يعني في جهازي على مسار C ، ومستخدم آخر على D وهكذا )
علماً أن الملف في نفس مجلد البرنامج المصمم بالأكسس ) . :wacko:
والله يعجز لساني عن شكرك .
ولكن لا أقول إلاّ ( اللهم لا ترينا في أختنا زهرة مكروهاً ولا في من تحب )
ألف ألف مليون شكر
والله إني عاجز أمام كرمك .
ولكن أنا أريد طريقة ( الزر يكون محدد ببرنامج ) يعني مكتوب على الزر مثلاً ( تنصيب برنامج فلاش ) وعندما يضغط يتم تنصيب الفلاش
ويكون البرنامج في نفش مجلد قاعدة البيانات .
إذا أمكن لأني محرج من كرمك أختي العزيزة .
تم تعديل هذه المشاركة بواسطة أبو عبير 2005 في 31 يوليو 2006 في 22:21
اخي الفاضل ابو عبير
بارك الله فيك على هذه الدعوات المباركات
اقتباسولكن أنا أريد طريقة ( الزر يكون محدد ببرنامج ) يعني مكتوب على الزر مثلاً ( تنصيب برنامج فلاش ) وعندما يضغط يتم تنصيب الفلاشويكون البرنامج في نفس مجلد قاعدة البيانات .
ما اعرفه عند تنصيب او تثبيت اي برنامج على جهاز الكمبيوتر هو ان يكون في مجلد البرامج الخاص بالويندوز والسبب ان ملف التثبيت وخاصة اذا كان الملف ينتهي بـ EXE فبالطبع يكون مرفق بداخله ملفات ومكتبات خاصة به DLL لابد من تثبيتها في مجلد الـ System32 لكي يعمل البرنامج .
اما اذا كان قصدك انه ملف وحيد تشغيلي اي يعمل مباشرة وهو بصيغة EXE فيمكن عن طريق الملف المرفق الذي وضعته لك لانك في المشاركة الخاصة بك تطلب تشغيل برنامج EXE وليس تثبيت برنامج .
اتمنى ان توضح الفكره التي تريد الوصول لها
اختكم
زهره
اللهم فرج عن أختي زهرة كل هم وغم وبارك لها فيما أعطيت
أختي العزيزة إليك المرفق يوضح المطلوب .
المطلوب أن يضغط المستخدم على رز تنصيب مشغل الفلاش ويتم تنصيب البرنامج ( أي استدعاءه من المجلد ) .
أنا آسف إذا لم أوضح المطلوب .
وآسف مرة آخرى على كثرت أسئلتي .
وآسف على إقحامك في مشاكلي البرمجية .
ولا استطيع أن أقول إلاّ ( اللهم فرج عن أختنا زهرة كل هم وكربة كما فرجت عنا ) .
أخوك في الله / أبو عبير
السلام عليكم
بارك الله فيك استاذتنا زهزه
فعلا زهرة المنتدى
Dim lpPath As String lpPath = CurrentProject.Path If Right(lpPath, 1) <> "\" Then lpPath = lpPath + "\" lpPath = lpPath + "setup.exe" If Dir(lpPath) = "" Then MsgBox "File Not Found": Exit Sub Shell lpPath, vbNormalFocus
سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت
أستغفرك وأتوب اليك
الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد
ألف ألف مليوووووووووووووووووووووووووون شكر
بارك الله فيك وفي ذريتك وأصلح حالك ويسر أمرك .
هذا الموضوع مغلق.
