[ تمت الإجابة ]فصل اسم الملف عن المسار

تفضل اخي

وهذا هو الكود:

Dim strSearchValue As String
Dim intTextLen As Integer
Dim intFileName As Integer

strSearchValue = "\"
intTextLen = Len(txtOrginalFile)
intFileName = InStrRev(Me.txtOrginalFile, strSearchValue, -1, vbTextCompare)

Me.Text6 = Right(Me.txtOrginalFile, intTextLen - intFileName)

File Name.zip

أكرر شكري لك أخي الكريم وأعتذر لأني أستعجل في طرح الموضوع ...

ولا أملك لك إلا الدعاء في ظهر الغيب

بارك الله فيك استاذ اياد دهشان

السلام عليكم

نجدد السؤال :

اخي الكريم أحتجت إلى فصل الاسم فقط بدون الملحقة .

حاولت أعدل على الكود ما ضبطت معاي .

تفضل اخي

تم التعديل باستخدام الكود

Dim strSearchValue1, strSearchValue2 As String
Dim intTextLen, intFind1, intFind2 As Integer
strSearchValue1 = "\"
strSearchValue2 = "."
intTextLen = Len(txtOrginalFile)
intFind1 = InStrRev(Me.txtOrginalFile, strSearchValue1, -1, vbTextCompare) + 1
intFind2 = InStrRev(Me.txtOrginalFile, strSearchValue2, -1, vbTextCompare) - 1
Me.Text6 = Mid(Me.txtOrginalFile, intFind1, intTextLen - intFind2)

File Name.zip

اخي الكريم : غلبتك معي فأعذرني ..

جربت اسم الملف :

d:\mot\ motaib.jpg

طلع لي بعد الفصل :

mot

وجربت الملف : d:\12.jpg

طلع = 12.j

وجربت اسم الملف هذا :

d:\mototaib.jpg

طلع النتيجة بعد الفصل = moto

انا اريد اسم الملف كاملا بغض النظر عن موقعه ... أي الاسم الذي بين اللاحقة (مثال JPG ) وبين الداش المائلة ( \ )

واعذرني على التعب معي .

اعذرني اخي فتى الوادي

لقد اخطات انا في الكود .. و تم تصحيح الملف

CutFile Name.zip

وفقك الله استاذ اياد

ودوماً إلى الأمام

أحسنت أخي الكريم وبارك الله فيك ويعطيك الف وخمسائة عافية