dir函数的奇怪问题

Question

Private Sub Form_Load()
Dim s As String
s = Dir("C:\*.*", vbNormal)
Do While s <> ""
    DoEvents
    Debug.Print s
    s = Dir
Loop
End Sub
运行没有问题!
Private Sub Form_Load()
Dim s As String
s = Dir("C:\Documents and Settings\zheng\Favorites\*.*", vbNormal)
'C:\Documents and Settings\zheng\Favorites是我的IE收藏夹
Do While s <> ""
    DoEvents
    Debug.Print s
    s = Dir
Loop
End Sub
运行有问题!
调试时，请将C:\Documents and Settings\zheng\Favorites换成你的IE收藏夹的路径

Answer 1

很奇怪的问题，只有Internet 快捷方式(url)会出现错误

Answer 2

立即窗口里输出:MSN.url
Xunchi 网站.url
暴风影音.lnk
电台指南.url貌似没有任何问题呀?是不是啥杀软之类的第三方原因?哎,匿,睡觉去-_-

Answer 3

实际调试了一下没有任何问题，可以print出所有类似xxx.url的文件，或许是我就是唯一的用户也就是administrator的原因。
楼主用提升权限或者以administrator的身份调试一下试试看。

Answer 4

LZ是按zheng这个用户登录的吗?如果是的话那就没问题可以打出来.

Answer 5

我试验了一下，不管是登录的用户，还是administrator都可以打出来。不知道为什么楼主不可以呢

Answer 6

如果，LZ用的一个受限用户登陆的。而且去打印的又不是自己登陆的用户而是一个administrator用户呢？你有试过没有？

Answer 7

我都试验过了，我用的是一个受限制用户，分别打印了administrator和我自己设的一个管理员，全都没有问题

Answer 8

如果是权限的问题，最多dir不到东西罢了，应该不会出现错误的，楼主的问题确实有点奇怪。

Answer 9

zheng这个用户是以前的所用的用户，后重装系统(覆盖安装，没格盘)，新建了个用户，zheng这个用户实际上不能用了!由于里面的收藏夹有些有用的东西，所以没有删!
刚才，我根据各位提示，看原来这个收藏夹的安全权限，居然不能更改(我是用Administrator登录的)。我想问题就出现在这个安全权限上!各位说的对!