فتح مجلد

[syrian_a]

شكرا لتجاوبك

بالظبط هذا ما أريد أخي ابو خليل

[ابوخليل]

السلام عليم

سأسوق بعض ردودك لأبرهن عن فهمك وعبقريتك :

[ شكرا Dream Works على مشاركتك معنا ومساعدتك لي

أنا وصلت لهذه النتيجة بواسطة اختيار (*.*) ولكن طلبي هو فتح المجلد في المستكشف الذي يحتوي الملف المكتوب مساره في path

أكرر شكري لأبو الأنس و لك أيضا ]

فالحل في متناول يديك فقط بدل المسار الموجود في الكود الذي بين علامتي التنصيص بنقطة ليصبح هكذا ( "." )

تم تعديل يونيو 8, 2009 بواسطه أبو الأنس

[عبد الله الثبيتي]

السلام عليكم

بعد اذن الأخوه اذا كان المقصود هو فتح مجلد يحتوي على ملف ، مسار هذا الملف أو الصوره في مربع نص

بفرض أن مربع النص الموجود فيه المساره اسمه Abdullah

استخدم هذا الكود

Dim pathname As String
Dim N, I As Integer
N = InStr(StrReverse([Abdullah]), "\")
I = Len([Abdullah]) - N
pathname = Left([Abdullah], I)
Shell "explorer.exe " & [pathname], vbMaximizedFocus

استبدل Abdullahفي الكود باسم مربع النص لديك المحتوي على مسار الصوره

مع التحيه للجميع

تم تعديل يونيو 9, 2009 بواسطه عبد الله الثبيتي

[syrian_a]

شكراً أخوتي ابو خليل و Dream Works و عبد الله على تعاوتكم و استجابتكم لي

فهذا هو المطلوب

و أكرر شكري لكم جميعاً