Declare Function PathIsRelative Lib "Shlwapi" _ Alias "PathIsRelativeW" _ (ByVal lpszPath As Long) As Boolean
Функция возвращает True, если путь является относительным, или False, если путь является абсолютным
Смотри пример в Shlwapi