اذهب الي المحتوي
أوفيسنا

فتح مجلد


syrian_a

الردود الموصى بها

السلام عليم

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

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

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

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

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

تم تعديل بواسطه أبو الأنس
رابط هذا التعليق
شارك

السلام عليكم

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

بفرض أن مربع النص الموجود فيه المساره اسمه 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في الكود باسم مربع النص لديك المحتوي على مسار الصوره

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

تم تعديل بواسطه عبد الله الثبيتي
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information