17-10-12, 12:18 AM
كاتب الموضوع : 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