Declare Function PathFindFileName Lib "Shlwapi" _ Alias "PathFindFileNameW" (ByVal pPath As Long) As Long
Функция возвращает указатель на адрес строки в успешном случае, или указатель на начало пути в обратном случае.
Смотри пример в Shlwapi