[RaggiTech]

كاتب الموضوع : 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