ارجوا من الاخوة الكرام
اعطائي الكود الذي استطيع من خلالة ان
افتح مجلد في مسار البرنامج
وجزاكم الله الف خير
رُب ( وامعتصماه ) إنطلقت *** ملْء أفـواه الصبايا اليُتـم
لامـسـت أسْـماعـهـم لاكـنهـا *** لمْ تلامس نخْوة المعتصم
كيف افتح مجلد عن طريق app.path
مغلق
ارجو التوضيح اكثر
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
تقبل تحياتى
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
'Þã ÈÚãá ÝæáÏ Úáì ÇáÈÇÑÊíÔä ÇáãØáæÈ æÓãå ãËáÇ ÈÇÓã a
WinExec "Explorer.exe c:\a", 10
End Sub
Private Sub Command2_Click()
WinExec "Explorer.exe d:\", 10
End Sub
Private Sub Command3_Click()
WinExec "Explorer.exe e:\", 10
End Sub
Private Sub Command4_Click()
WinExec "Explorer.exe f:\", 10
End Sub
بسم الله الرحمن الرحيم
حل بسيط وسهل
Shell "explorer " & App.Path
وبامكانك التعديل على اسم الفولدر على راحتك .
والسلام عليكم ورحمة الله وبركاته
تم تعديل هذه المشاركة بواسطة البريشي في 2 يناير 2006 في 12:12
********************* ******************** *********************
(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))
********************* ******************** *********************
لا تقـل من أيـن أبدأ
طـاعـة الله الـبدايـة
***
لا تقـل أين طـريـقي
شــرع الله الهـدايـة
***
لا تـقـل أيـن نعـيمي
جـنـة الله كـفـايـــــة
***
لا تقـل في الغـد أبدأ
ربمـــا تأتـي النهـايـــة
**************** **************** ****************
التوضيح :
مثلا وضعت البرنامج في سيدى وفي
مكان البرنامج مجلد اسمه NEW وعملت زر
في البرنامج اسمة فتح المجلد NWE لما نضغط علية يفتح
وشكر لكم
رُب ( وامعتصماه ) إنطلقت *** ملْء أفـواه الصبايا اليُتـم
لامـسـت أسْـماعـهـم لاكـنهـا *** لمْ تلامس نخْوة المعتصم
بسم الله الرحمن الرحيم
اذا فرضنا أن المجلد new موجود مع البرنامج في نفس المجلد
dim a as string a=app.path if right(a,1) <> "\" then a=a & "\" end if Shell "explorer " & a & "new"
والسلام عليكم ورحمة الله وبركاته
تم تعديل هذه المشاركة بواسطة البريشي في 3 يناير 2006 في 11:44
********************* ******************** *********************
(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))
********************* ******************** *********************
لا تقـل من أيـن أبدأ
طـاعـة الله الـبدايـة
***
لا تقـل أين طـريـقي
شــرع الله الهـدايـة
***
لا تـقـل أيـن نعـيمي
جـنـة الله كـفـايـــــة
***
لا تقـل في الغـد أبدأ
ربمـــا تأتـي النهـايـــة
**************** **************** ****************
مثلما ذكر الاخ / البريشى
لكن لى تعديل بسيط
Shell "explorer " & a & "new" , vbMaximizedFocus
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
هذا الموضوع مغلق.