File Information

[kedaman]

Shoud work with both

Function Filepart(filepath)
    For n = Len(filepath) To 1 Step -1
        If Mid(filepath, n, 1) = "\" Then Exit For
    Next n
    Filepart = Mid(filepath, n + 1)
End Function