منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : لاستخراج اسم الملف من عنوانه الكامل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : Boutemine Oualid

السلام عليكم و رحمة الله و بركاته

كود :
Public Function GetFileName(path As String) As String
If Dir(path) <> ""Then
Dim splitPath() As String
splitPath = Split(path, "\", -1, vbTextCompare)
GetFileName = splitPath(UBound(splitpath))
Else
MsgBox ("File doesn't exists")
End If
End Function