共三种方法，每三种用正则表达式，准确度相对前两种较高。。。 
方法一 代码：【复制】 
Function FileExec(fileName) 
FileExec = Mid(fileName,Instr(fileName,".")+1,Len(fileName)-Instr(fileName,".")) 
End Function
方法二 代码：【复制】 
Function getExtn(text) 
  text = Right(text,inStrRev(text,".")-1) 
  getExtn = text 
End Function 
方法三 代码：【复制】 
Function FileExtenName(byVal FileName)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = "^.*(.[^.]*)$"
  regEx.Global = False
  regEx.IgnoreCase = True
  FileExtenName = regEx.Replace(FileName, "$1")
  Set regEx = Nothing
End Function