تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخراج اسم الملف من ضمن مسار
#1
كاتب الموضوع : AhmedEssawy

تعتمد الفكرة على قراءة مسار كامل مثلاً ، ومن ثم قراءة الكلمة الموجودة بعد آخر علامة / موجودة في النص :

الكود هو :


كود :
Public Function NameFromFullPath(FullPath As String) As String
'Input: Name/Full Path of a file
'Returns: Name of file
Dim sPath As String
Dim sList() As String
Dim sAns As String
Dim iArrayLen As Integer
If Len(FullPath) = 0 Then Exit Function
sList = Split(FullPath, "\")
iArrayLen = UBound(sList)
sAns = IIf(iArrayLen = 0, "", sList(iArrayLen))

NameFromFullPath = sAns
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احضار مسار ملف بالسحب والافلات الى برنامجي القناص المحترف 1 760 04-03-13, 03:46 AM
آخر رد: @@أبورائد@@
  لاستخراج اسم الملف من عنوانه الكامل RaggiTech 0 273 17-10-12, 02:19 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم