Получить расширение файла

Опубликовано автор kos20

Вариант 1

Function ФАЙЛРАСШИР(ПУТЬ As String) As String
    Dim temp As Variant
    If ПУТЬ = "" Then ФАЙЛРАСШИР = "": Exit Function
    temp = Split(ПУТЬ, ".")
    ФАЙЛРАСШИР = temp(UBound(temp))
End Function

Вариант 2

Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(Filename)