استخلاص أسم المف من مسارة

السلام عليكم

أخي الكريم

هذه بعض الخطوات التي تسمى دوال النصية بالكود التالي وشرحت به وظيفة كل سطر:

'إحفظ المسار في متغير للتعامل معه

			Dim path As String = "d:\aa\bb\gg\filename.jpg"

'إحسب عدد خانات المسار في متغير من نوع رقم

			Dim LengthOfFileName As Integer = path.Trim().Length

'(\)إحسب عدد خانات المسار إبتداءَ من آخر سلاش

			Dim fileLastIndex As Integer = path.LastIndexOf("\")

'Substring قطع النص المطلوب بالدالة

			path = path.Substring(fileLastIndex, LengthOfFileName - (fileLastIndex))

'إزالة السلاش(\) في بداية اسم الملف

			path = path.Remove(0, 1).Trim()

وبالتوفيق إن شاء الله

Megren

تحتاج للاستيراد التالي

Imports System.IO

ثم نستخدم الطريقة التالية

		Dim FullFilePath As String = "d:\aa\bb\gg\filename.jpg"
		Dim i As New FileInfo(FullFilePath)
		MsgBox(i.Name)

ماشاء الله عليك ياأستاذ محمد

بصراحة فرق بين 5 سطور و3 :)

ومنكم نستفيد ,,,

ولكن في بعض الأحيان قد يحتاج المبرمج اسم الملف بدون إظهار إمتداد *.jpg

وبهذه الطريقة يحتاج للتعامل مع الدوال النصية

الله يزيدك من العلم وينفع بك

أو يمكنك استعمال دالة Split

طبعا الاخ سامر وفى لكن كاضافة

Dim FullFilePath As String = "d:\aa\bb\gg\filename.jpg"
Dim Name() as string
Name = FullFilePath.Split("\")
msgbox Name(Ubound(Name))