من يحل لي مشكلة هذا الكود

كود لجعل اي ملف Exe في مجلد برنامجك يعمل ....من غير اي اخطاء

	On Error Goto err: 
	X% = Shell(Dir, 1): NoFreeze% = DoEvents(): Exit Sub 
	Exit Sub 
	err: 
	'make your own error messages like mine 

	' below, or use the default: 
	If err.Number = 6 Then Exit Sub 
	MsgBox "Please make sure that the application you are trying To launch is located in the correct folder." & vbCrLf & "If not, Do this and retry launching the application.", vbExclamation

أخي walled شكراً لك على المساعدة

ملف الفلاش الذي عندي ليس exe لذلك استخدمت أداة ShockwaveFlash1 لأن ملف الفلاش سوف يعمل في مكان محدد داخل هذه الأداة أما exe فلا يحتاج إلى أداة ShockwaveFlash1

ملف الفلاش خاصتي بصيغة swf

أرجوكم أفهموا طلبي جيداً ثم أجيبوا

لقد أرفقت لكم برنامج للتجربة وهو يعمل 100% ولكنه لا يعمل إذا تم نسخه في اسطوانه وتم تشغيله على نظام وندوز 98 هل فهمتم قصدي أرجو أن أكون وضحت طلبي .

أين المبرمجين .......................

هل أنا أخترع شيء لم يسمع به العالم . أنا طلبت منكم حل مشلكتي مع هذا الكود .

يا شباب هذا كود أتعبني ما أعتقد أنكم لا تستطيعون الإجابة عليه .

أرجوكم جاوبوا .

ملف فلاش لا يعمل.zip

بسم الله الرحمن الرحيم

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

أخي العزيز :: أبو عبير 2005 ::

جرب استبدال الكود التالي :

ShockwaveFlash1.Movie = App.Path & "/" & "Aboabeer.swf"

بهذا الكود :

ShockwaveFlash1.Movie = App.Path & "\Aboabeer.swf"

ووافني بالنتائج

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

أخي العزيز المبرمج أحمد

الكود لا يعمل وقد أرفقت لك صورة الخطأ

أخي العزيز ملف الفلاش على السي دي مباشرة وليس في مجلد بمعنى أن الدالة app.path لا تعمل إلى إذا كان الملف مع البرجكتر في مجلد واحد ركز على كلمة مجلد أما ملف الفلاش فليس في مجلد بل على السي دي مباشرة .

إذا كان عندك موديول يحل المشكلة أرجو أن ترفقه لي .

علماً أنني أتلفت ثلاثة سيديات حتى أتأكد من حل المشكلة ولكن للأسف لم تنحل

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

أرجوك حاول تساعدني ولك جزيل الشكر .

وإليك صورة الخطأ .

أخي العزيز المبرمج أحمد

الكود لا يعمل وقد أرفقت لك صورة الخطأ

أخي العزيز ملف الفلاش على السي دي مباشرة وليس في مجلد بمعنى أن الدالة app.path لا تعمل إلى إذا كان الملف مع البرجكتر في مجلد واحد ركز على كلمة مجلد أما ملف الفلاش فليس في مجلد بل على السي دي مباشرة .

إذا كان عندك موديول يحل المشكلة أرجو أن ترفقه لي .

علماً أنني أتلفت ثلاثة سيديات حتى أتأكد من حل المشكلة ولكن للأسف لم تنحل

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

أرجوك حاول تساعدني ولك جزيل الشكر .

وإليك صورة الخطأ .

صورة الخطأ.zip

السلام عليكم ورحمة الله وبركاتة

Dim a As String
a = App.Path
If Right$(a, 1) <> "\" Then a = a & "\"
a = a & "Aboabeer.swf"
ShockwaveFlash1.Movie = a

dim a as string
a=app.path & "\Aboabeer.swf"
a=replace(a,"\\","\")
ShockwaveFlash1.Movie = a

try it

بسم الله الرحمن الرحيم

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

أخي العزيز :: أبو عبير 2005 ::

نصيحة : لا تستخدم أقراص CD-R في التجربة بل استخدم CD-RW الذي يمكنك من تسجيل ومسح البيانات من القرص على لا تتلف المزيد من الأقراص المضغوطة .

أخي العزيز المبرمج أحمد

السلام عليكم ورحمة الله وبركاته

الله يعطيك العافيه على مجهودك واهتمامك بحل مشكلتي .

بفضل الله ثم بفضلك تم حل المشلكة

أنا عاجز عن شكرك .

ولا يسعني إلاّ أن أقول الله يجعل هذا العمل في موازين حسناتك .

ألف ألف ألف شكر .

لك تقديري واحترامي .

أما بخصوص القرص فقد أشتريت CD - RW خاص لهذه التجربة كما نصحتني .

أخوك أبو عبير 2005 :rolleyes: