中国DOS联盟

将
on Error Resume Next '容错模式(忽略特殊文件夹错误)

屏蔽掉改为:
'on Error Resume Next '容错模式(忽略特殊文件夹错误)

看下提示信息，估计是权限问题。

我希望所以文件取大小能精确到百分位。

比如
218.12MB
1.02GB
35.60KB

支持一下

slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。

Originally posted by tachyon at 2010-3-28 21:09:
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。

代码逻辑是正确的。。。估计是那个对象的问题，一些文件夹会莫名其妙的没有权限，尤其是系统的一些文件夹。

Originally posted by kidzgy at 2010-3-28 11:14:
我希望所以文件取大小能精确到百分位。

比如
218.12MB
1.02GB
35.60KB

FormatSize函数自己改改吧。

抱歉，我对此一窍不通哦，具体怎么改哦？什么替换成什么？

Function FormatSize(SZ)
Dim i
Do While SZ > 1024
i = i + 1
SZ = SZ / 1024
Loop
FormatSize = " (" & Round(SZ,2) & Mid(Unit4Size,1 + 2 * i,2) & ")"
End Function

弄好了非常感谢哈~