استفسار عن كود "لعدم تحديد المسار "

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

اخوتي لقد قمت بعمل برنامج به اربعة كوماند ..

عن الضغط على اي كوماند فانه يقوم يتشغيل برنامج معين ...

واحببت ان اضع هذا البرنامج في اسطوانة لارساله لاحد الاصدقاء ونظراً لعدم معرفتي باسم الدرايفر المخصص للاسطوانة لديه استخدمت الكود التالي :

Private Sub Command2_Click()

Dim f As String

f = App.Path + "ateqcard.exe"

Shell f, vbNormalFocus

End Sub

وقد نجح الكود مع الملفات ذات الامتداد

exe

ولكن عندما حاولت تطبيقها على ملفات مضغوطه لم تنجح فهل من حل لديكم

كما لدي استفسار اخر وهو :

لدي شرح بسيط عن احد البرنامج في ملف تكست كيف اقوم بعرضه بعد وضع كوماند مخصص لعرض الشرح ..

وجزاكم الله خيرا

في امان الله