[ تمت الإجابة ]معرفة اسم الملف دون مساره

أسف أسف وجدت الحل في أحد الأمثلة

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

السلام عليكم

نظرا لأني قمت باعداد الاجابة قبل رد الاخ الكريم

فلا يمنع ذلك من ارفاقها هنا للفائدة أنظر المثال - والكود المرفق

للقيام باشتقاق اسم الملف من مساره الكامل أنت بحاجة لهذه الــ Function

Public Function GetFileNameFromPath(strPath As String) As String
  Dim intX As Integer
  Dim intPlace As Integer
  Dim intLastPlace As Integer

  intLastPlace = 0
  For intX = 1 To Len(strPath)
	intPlace = InStr(intLastPlace + 1, strPath, "\")

	If intPlace = 0 Then
	  GetFileNameFromPath = Right(strPath, Len(strPath) - intLastPlace)
	  Exit Function
	Else
	  intLastPlace = intPlace
	End If
  Next intX
End Function

ثم تقوم باسناد الدالة لأي مكان تريد ظهور اسم الملف فيه على سبيل المثال مربع نص - بهذا الكود

Me.txtN = GetFileNameFromPath(Me.FileN)

أنتهى .............. EKSEER

EK_FileName.rar

السلام عليكم جزاك الله كل الخير أخي الكريم

وشكراً لك على الرد وعلى الأهتمام وشكراً على المثال الرائع ...

شكراً

السلام عليكم