Declare Function PathFindExtension Lib "shlwapi" _ Alias "PathFindExtensionW" (ByVal pPath As Long) As Long
PathFindExtension позволяет получить расширение файла
Функция возвращает расширение файла с точкой
Смотри пример в Shlwapi