aspファイル接尾辞名関数の取得

function GetExtendName(FileName) 
dim ExtName 
ExtName = LCase(FileName) 
ExtName = right(ExtName,3) 
ExtName = right(ExtName,3-Instr(ExtName,".")) 
GetExtendName = ExtName 
end function

出典:DIY部族(http://www.diybl.com/course/4_webprogram/asp/aspxljc/2008109/149666.html)