+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : استخراج اسم الملف من ضمن مسار (/showthread.php?tid=5813)
استخراج اسم الملف من ضمن مسار - RaggiTech - 17-10-12
كاتب الموضوع : 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