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

[فتى الوادي 42]

السلام عليكم

إذا لدي حقل فيه مسار لأحد الملفات بهذا الشكل :

C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg

وريد فصل اسم الملف عن بقية المسار في حقل آخر ليكون بهذا الشكل بعد الفصل :

Sunset.jpg

فكيف يتم ذلك ..

وأعذروني على كرة الأستفسارات هذه الأيام ...

db6.rar

[eyadd 32]

تفضل اخي

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

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

[فتى الوادي 42]

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

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

[youssef103 14]

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

[فتى الوادي 42]

السلام عليكم

نجدد السؤال :

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

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

[eyadd 32]

تفضل اخي

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

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

[فتى الوادي 42]

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

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

d:\mot\ motaib.jpg

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

mot

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

طلع = 12.j

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

d:\mototaib.jpg

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

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

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

تم تعديل 2 Jan 2011 بواسطه فتى الوادي

[eyadd 32]

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

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

CutFile Name.zip

[مبتدئ 2010 0]

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

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

[فتى الوادي 42]

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