ASP 获取指定文件的扩展名
2011-10-19 15:59:43 797

'********************************************
'函数名:GetAnExtension
'作 用:删除指定的一个文件
'参 数:filename —-要删除的文件名
'返回值:文件的扩展名
'********************************************

Function GetAnExtension(filename)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    GetAnExtension = fso.GetExtensionName(filename)
    Set fso = Nothing
End Function