السلام عليكم ورحمة الله وبركاته
أخواني أثابكم الله الكود التالي بسيط لكن أريد من أهل الخبرة أثابكم الله التعديل عليه ليصبح مختصر وفعال
If App.Path = "C:\" Or "D:\" Or "E:\" Or "F:\" Or "G:\" Or "H:\" Or "I:\" Or "J:\" Then Shell "explorer.exe " & App.Path, vbMaximizedFocus End If
الكود أنه أذا كان برنامجي في أحد الدريفات يفتح الدرايف لكن المشكلة أني وضعته في المسنتدات وقام بفتحها
أرجوا التعديل عليه أثابكم الله ويسر أموركم
مالمقصود يفتح الدرايف ?
Many of life’s failures are people who did not realize how close they were to success when they gave up
Thomas Edison
هل هذا الكود يفي بالغرض ؟
If App.Path Like "?:\" Then Shell "explorer.exe " & App.Path, vbMaximizedFocus End If
سبحان الله وبحمده ... سبحان الله العظيم
أعتقد انك ترغب في الحصول على الدرايفر الموجود به البرنامج
يمكنك استخدام هذا
Shell "explorer.exe " & Mid(App.Path, 1, 3), vbMaximizedFocus
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
أخواني أثابكم الله يكمن ماصلت الفكرة بشكل صحيح
اللي أريده أنه أذا كان برنامجي موجود في أحد الداريفات للجهاز مثلاً الداريف C يقوم بفتح الداريف نفسه
أما أذا كان في سطح المكتب أو المستندات أو بداخل أي مجلد موجود على أي درايف لايقوم بفتح الدرايف
يعني فقط أذا كان في السي يفتح السي أذا كان في الدي يفتح الدي لكن أذا كان موجود بداخل مجلد ما لايقوم بفتحة
أعطيكم مثال:
برنامج أسمة TEST.exe
أذاكان موقع البرنامج C:\TEST.exe يقوم بفتح السي
أذا كان موقع البرنامج C:\New Folder\TEST.exe لايقوم بفتح السي
وهكذا مع بقية الدرايفات
أرجوا أني وصلت الفكرة
جزاكم الله ألف خير وييسر أموركم
تم تعديل هذه المشاركة بواسطة M.555 في 1 يناير 2010 في 05:05
جرب هذا
if (len(app.path)=3) then Shell "explorer.exe " & App.Path, vbMaximizedFocus else msgbox "Not In Drive" end if
تحياتي
تم تعديل هذه المشاركة بواسطة omani في 1 يناير 2010 في 12:20
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
أخي omani جزاك الله عنا خير الجزاء وثبتك على دينك ورزقك بالذرية الصالحة
ألف شكر
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…