dir 取路径后，路径里有“？”的怪问题！搜很多贴无解

ljp19000

用dir（）方法取路径后，路径里有时会出现“？”，出现“？”的位置我估计是一个软回车之类的chr（），用这样的路径使用getsttr函数时就会报错，即使去除“？”后，使用getsttr函数依然报错。

myfilename = Dir(“d:\”, vbDirectory)
    Do While Len(myfilename) > 0
        If myfilename <> "." And myfilename <> ".." Then
            i2 = GetAttr((“d:\” & myfilename)
            If i2 = 16 Or i2 = 17 Then
               
            End If
        End If
        myfilename = Dir()
    Loop
下面的附件，就是会出现这样错误路径的文件夹，表面看，这个文件夹的文件名是“（&#8300;2012.1.15）”，但是用dir方法取路径时，这个文件夹显示“（？&#8300;2012.1.15）”，多一个问号

大家可以下载附件看看，显示“？”的位置确实有个东西，但是看不见，重命名，用键盘左右移动时，就会发现显示“？”的地方是有的东西的

不仅是我存在这个问题，下面的这个帖子，问题和我的一摸一样
http://club.excelhome.net/forum.php?mod=viewthread&tid=792061

虽然用fso方法取路径就不存在这个问题，但我我不想用fso

№①布鲑鲑

你们懂了吗，反正我是没懂

ljp19000

№①布鲑鲑 发表于 2013-2-17 22:03
你们懂了吗，反正我是没懂

我改过了，您再看看

huaimiao781

估计是 想问 怎么避免 使用这个 命令  在搜索 文件路径的时候  显示?  这个问题。

ljp19000

huaimiao781 发表于 2013-2-17 22:15
估计是 想问 怎么避免 使用这个 命令  在搜索 文件路径的时候  显示?  这个问题。

是的，但是去掉了“？”之后的路径，也不能使用getattr

huaimiao781

楼主 有测试过 VB 工程 的 运行结果吗？  有可能 这只是 EXCEL 中的 一个BUG 。  先看看 TXT 显示的结果 是否正确吧！然后再来查原因。

ccwan

?的问题你能解决，那么就不成问题。
不能用getattr取得值是因为你的文件不带路径，造成找不到文件
试试

1. Path = "d:"
   
2. myfilename = Dir(Path, vbDirectory)
   
3. Do While Len(myfilename) > 0
   
4.     If myfilename <> "." And myfilename <> ".." Then
   
5.         i2 = GetAttr(TextBox1 & Path & myfilename)
   
6. 。。。。。。。。

复制代码

ljp19000

huaimiao781 发表于 2013-2-17 23:13
楼主 有测试过 VB 工程 的 运行结果吗？  有可能 这只是 EXCEL 中的 一个BUG 。  先看看 TXT 显示的结果 是 ...

显示的正确的，？的位置确实有个东西，但是看不见，并且不识别才出现“？”，你可以下载我的附件，重命名，用键盘左右移动时，就会发现是有的东西的

ljp19000

ccwan 发表于 2013-2-17 23:35
?的问题你能解决，那么就不成问题。
不能用getattr取得值是因为你的文件不带路径，造成找不到文件
试试

不好意思，这是我代码的节选，我没粘对。即使是带全部路径也没有用。

lu_zhao_long

我猜测楼主电脑的操作系统的语言选项设置可能存在一定的问题。对于非 Unicode 码的支持或许没有正确设置，所以对于全角字符会以 ?（包括汉字、中文标点符号等等）来代替。