中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-06-27 00:22
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创]vbs版Tree 查看 2,624 回复 23
16 发表于 2010-03-27 19:33 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线

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

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

看下提示信息,估计是权限问题。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
17 发表于 2010-03-28 11:14 ·  中国 广东 梅州 电信
中级用户
★★
积分 262
发帖 129
注册 2007-07-11 06:50
18年会员
UID 93679
性别 男
状态 离线
我希望所以文件取大小能精确到百分位。

比如
218.12MB
1.02GB
35.60KB
18 发表于 2010-03-28 11:37 ·  中国 陕西 汉中 电信
初级用户
★★
积分 128
发帖 122
注册 2009-09-21 06:24
16年会员
UID 152378
性别 男
状态 离线
支持一下
19 发表于 2010-03-28 21:09 ·  中国 北京 丰台区 联通
初级用户
积分 33
发帖 32
注册 2006-02-21 23:08
20年会员
UID 50740
性别 男
状态 离线
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。
20 发表于 2010-03-28 22:24 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
Originally posted by tachyon at 2010-3-28 21:09:
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。



代码逻辑是正确的。。。估计是那个对象的问题,一些文件夹会莫名其妙的没有权限,尤其是系统的一些文件夹。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
21 发表于 2010-03-28 22:26 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
Originally posted by kidzgy at 2010-3-28 11:14:
我希望所以文件取大小能精确到百分位。

比如
218.12MB
1.02GB
35.60KB


FormatSize函数自己改改吧。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
22 发表于 2010-03-29 12:49 ·  中国 广东 梅州 电信
中级用户
★★
积分 262
发帖 129
注册 2007-07-11 06:50
18年会员
UID 93679
性别 男
状态 离线
抱歉,我对此一窍不通哦,具体怎么改哦?什么替换成什么?
23 发表于 2010-03-29 13:09 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
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
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
24 发表于 2010-03-29 19:31 ·  中国 广东 梅州 电信
中级用户
★★
积分 262
发帖 129
注册 2007-07-11 06:50
18年会员
UID 93679
性别 男
状态 离线
弄好了非常感谢哈~
论坛跳转: