|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
16 楼』:
将
on Error Resume Next '容错模式(忽略特殊文件夹错误)
屏蔽掉改为:
'on Error Resume Next '容错模式(忽略特殊文件夹错误)
看下提示信息，估计是权限问题。
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
 2010-3-27 19:33 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
17 楼』:
我希望所以文件取大小能精确到百分位。
比如
218.12MB
1.02GB
35.60KB
|
|
|
2010-3-28 11:14 |
|
|
jarry0932
初级用户
积分 128
发帖 122
注册 2009-9-21
状态 离线
|
|
|
2010-3-28 11:37 |
|
|
tachyon
初级用户
积分 33
发帖 32
注册 2006-2-21
状态 离线
|
『第
19 楼』:
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。
|
|
|
2010-3-28 21:09 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
20 楼』:
| Quote: | Originally posted by tachyon at 2010-3-28 21:09:
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。 |
|
代码逻辑是正确的。。。估计是那个对象的问题，一些文件夹会莫名其妙的没有权限，尤其是系统的一些文件夹。
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2010-3-28 22:24 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
21 楼』:
| Quote: | 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 |
|
|
2010-3-28 22:26 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
22 楼』:
抱歉，我对此一窍不通哦，具体怎么改哦？什么替换成什么？
|
|
|
2010-3-29 12:49 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
23 楼』:
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 |
|
|
2010-3-29 13:09 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
|
|
2010-3-29 19:31 |
|
