السلام عليكم
ابغى اعدل على الكود لكن الكود طفشني عيا يظبط معي مدري السبب من الكود
او السبب مني والاغلبيه انه مني :D
الكود هذا من اخي المزمجر جزاه الله خير
ShellExecute Me.hWnd, "open", App.Path & "\" + Text1.Text + ".EXE", "", "", 1
الكود هذا وظيفته تشغيل برنامج
انا ابغى اعدل الكود الى انه يشغل البرنامج اللي مساره في text1 على اني جربت الكود نفسه اكثر من مليون مره
او اذا ممكن كود غيره مافيه اية مشكله بس اهم شي يلبي الطلب
والله يعطيكم العافيه
وجزاكم الله خير مقدما
بسم الخلق
و لله أنا حولت كتير يا أخي لكن مفيش فيده لكن في كود أخر لفتح مشروع أخر ألا وهو
Dim a
a = Shell("C:\name.exe", vbNormalFocus)مكان name.exe ضع مسار البرنامج المراد تشغيلة
يعطيك العافيه وشاكر لك لكن المشكله مش في الخيار فكرة البرنامج تتطلب كذا
شاكر على مرورك الكريم ويعطيك العافيه على محاولاتك
سلام
هذا الكود شغال لكن ميه ميه لكن انا ابغاه يشغل البرنامج اللي موجود مساره في text1
Shell ("C:\neme.exe") حذفت منه لكنه شغال
يشباب بلاه واللي يعرف لايبخل تراه معذبني هالكود عجزت القى حل له
سلام
اذا المسار فقط موجود داخل text1 نفذ مايلي
shell(text1 & "\name.exe",vbNormalFocus)
اذا اسم الملف كامل مع المسار موجود في text1
shell(text1 ,vbNormalFocus)
يعطيك العافيه وشاكر لك
لكن كلهن فيهن خطاء
انا عندي في text1 مسار كامل يعني خانه وحدة مافيه خانة ثانيه للاسم
مافيه الا خانة المسار كامل
والله يجزاك خير
با لانتظار .............
سلام
المطلوب غير واضح لنا !!!!!!
لكن جرب عسى ان يكون المطلوب
Dim x As String, y As String x = Text1.Text y = x & "\" & Dir(x & "\*.exe") Shell y, vbNormalFocus
الكود بسيط جدا اخى اذا كنت فهمت قصدك
انتا عايز تشغل البرنامج اللى ينكتب فى التيكست تخصيصا فى text1.text اذا كان جوابك بنعم
فهذا هو الكود :
Shell (Text1.Text)
"خيركم من تعلم العلم وعلمه"
هذا الموضوع مغلق.
