论坛 Forum

这个问题也把我折磨得有想死的感觉！

后来经过一下午的测试，发现有个规律，它把文件名的汉字变成了乱码，那个“.”变成了“?”。

所以，我用了个愚蠢的办法，判断了一下，基本就不出问题。代码如下！

if InStrRev(fileName, ".") > 0 then

fileExt = mid(fileName,InStrRev(fileName,".")+1)
else

fileExt = mid(fileName,InStrRev(fileName,"?")+1)
end if

如果哪位大侠还有更好的方法，望不吝赐教！！