''获取文件名(不含扩展名)
Function getFilename(text)text = Left(text,inStrRev(text,".")-1)getFilename = text
End Function
''获取扩展名
Function getExtn(text)text = Left(text,inStr(text,".")-1)getExtn = textEnd Function