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)