中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-12 14:20 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » [原创]vbs版Tree
可打印版本 　2,833 / 23
第16楼　slore 发表于 2010-03-27 19:33
铂金会员　发帖 2,478　积分 5,212
将
on Error Resume Next '容错模式(忽略特殊文件夹错误)

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

看下提示信息，估计是权限问题。
第17楼　kidzgy 发表于 2010-03-28 11:14
中级用户　发帖 129　积分 262
我希望所以文件取大小能精确到百分位。

比如
218.12MB
1.02GB
35.60KB
第18楼　jarry0932 发表于 2010-03-28 11:37
初级用户　发帖 122　积分 128
支持一下
第19楼　tachyon 发表于 2010-03-28 21:09
初级用户　发帖 32　积分 33
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。
第20楼　slore 发表于 2010-03-28 22:24
铂金会员　发帖 2,478　积分 5,212
Originally posted by tachyon at 2010-3-28 21:09:
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。



代码逻辑是正确的。。。估计是那个对象的问题，一些文件夹会莫名其妙的没有权限，尤其是系统的一些文件夹。
第21楼　slore 发表于 2010-03-28 22:26
铂金会员　发帖 2,478　积分 5,212
Originally posted by kidzgy at 2010-3-28 11:14:
我希望所以文件取大小能精确到百分位。

比如
218.12MB
1.02GB
35.60KB


FormatSize函数自己改改吧。
第22楼　kidzgy 发表于 2010-03-29 12:49
中级用户　发帖 129　积分 262
抱歉，我对此一窍不通哦，具体怎么改哦？什么替换成什么？
第23楼　slore 发表于 2010-03-29 13:09
铂金会员　发帖 2,478　积分 5,212
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
第24楼　kidzgy 发表于 2010-03-29 19:31
中级用户　发帖 129　积分 262
弄好了非常感谢哈~
上一页　 1 2
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023