国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

''獲取文件名（不含擴展名）

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