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