亚洲乱色熟女一区二区三区丝袜,天堂√中文最新版在线,亚洲精品乱码久久久久久蜜桃图片,香蕉久久久久久av成人,欧美丰满熟妇bbb久久久

''獲取文件名（不含擴(kuò)展名）

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

End Function

''獲取擴(kuò)展名

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