مساعدة بسيطة يا شباب

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

الأخ الكريم أسأل الله تعالى أن يجعلك خبيراً في لغة VB إن سميع مجيب.

بالنسبة إلى أسئلتك فخذ الأجوبة:

جواب السؤال الأول:

أطلب من المستخدم أن يكتب حرف سواقة الأقراص وخزّنه في متغير.

أدرج الكُد التالي في أي مكان أردت:

Shell "Explorer.exe cd"

حيث cd يمثل حرف محرّك الأقراص.

جواب السؤال الثاني:

بالنسبة لحذف ملف استخدم Kill. فمثلاً:

Kill "C:aa.exe"

سيتم حذف الملف aa.exe بدون تنبيه.

لحذف ملفَّات كثيرة استخدم:

Kill "C:WindowsSystem*.dll"

سيتم حذف كل ملفات الربط الحيوي dll في الويندوز.

أما إذا كان الملف مخفي فاستخدم ما يلي للتحقُّق من هيئة الملف:

If GetAttr("C:aa.exe") And vbHidden Then
    MsgBox ("مخفي")
Else
    MsgBox ("غير مخفي")
End If

سيتم التحقق من أنَّ هل الملف مخفي أم لا فإن كان مخفي سوف تظهر رسالة (مخفي) وإن كان غير مخفي فسوف تظهر رسالة (غير مخفي).

مع تحياتي لك(f)

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

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

أولاً أسف لتأخري في الرد وذلك لبعض المشاغل

ومشكور وماقصرت أخي Basrah

ولكن أسمح لي أن اتعبك معاي شوي .. :D .. بالنسبة للسؤال الأول

لم أفهم ماذا تقصد بالمتغير ... ومن ناحية أخرى طلبي هو كود تلقائي

دون ان يطلب من المستخدم أن يكتب حرف سواقة الأقراص

أما عن السؤال الثاني

فقط أعطيتني فكرة جديدة حول أستخدام حذف الملفات ذات الامتداد الواحد

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

بعضها مخفي ، أو بعضها غير موجود

اليك هذا المثال

قمت بعمل عدة نسخ من لعبة السولتير بداخل الوندوز بأرقام مختلفة

ولكن مع عدم وجود الملف الاول داخل الوندوز يتوقف البرنامج دون حذف باقي الملفات

فكيف أجعله يحذف الباقي دون توقفه ؟

هذا ولك جزيل الشكر

الإعصار الحزين

kill.zip