فصل اسم المسار عن الموقع

اخى الكريم

السلام عليكم

هل هذا طلبك

جزاك الله خيراااا

db6.rar

السلام عليكم

نعم اخي الكريم هي نفس الفكرة ...

لكن لا حظ أن اسم الجلد يمكن أن يكون طويلا وليس محدودا بثلاثة أحرف ...

يعني ممكن يكون بدلا من :

D:\

يكون :

C:\Documents and Settings

المقصد هو فصل اللي بعد ( \ )

بارك الله فيك وما قصرت .. ويا ليت تكمل لي الحل .

هذا الرابط ستجد به ما تريد واكثر

//attachment/40791

الأخ abo.ahmed:

شكراً جزيلاً على هذا المثال الجميل0

السلام عليكم

الحمد لله تم حل إيجاد الكود المناسب ... وهو :

Dim strSearchValue1, strSearchValue2 As String
Dim intTextLen1, intFind1, intFind2 As Integer
strSearchValue1 = "\"
strSearchValue2 = "."
intTextLen1 = Len(subtypes22)
intFind1 = InStrRev(Me.subtypes22, strSearchValue1, -1, vbTextCompare) + 1
intFind2 = InStrRev(Me.subtypes22, strSearchValue2, -1, vbTextCompare) - 1
Me.text6 = Mid(Me.subtypes22, intFind1, intTextLen1 - intFind2)

وقد ذكره أحد الأخوان في مشاركة سابقة كنت قد نسيتها ...

شكرا لكم وما قصرتم . وبارك الله فيكم وفي علمك ونفع الله بكم البلاد والعباد وزادكم الله علما وعملا .

فكرة جميلة جدا