Function RealFileName(fname) '纯文件名
    '去掉后缀后的文件名
    RealFileName = Left(fname, InStrRev(fname, ".") - 1)
End Function

Function FileType(Filename) '获得文件后缀
    FileType = Mid(Filename, InStrRev(Filename, ".") + 1)
End Function