''获取文件名（不含扩展名）

Function getFilename(text)
text = Left(text,inStrRev(text,".")-1)
getFilename = text

End Function

''获取扩展名

Function getExtn(text)
text = Left(text,inStr(text,".")-1)
getExtn = text
End Function