|
slore
铂金会员
      
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第 16 楼』:
使用 LLM 解释/回答一下
将
on Error Resume Next '容错模式(忽略特殊文件夹错误)
屏蔽掉改为:
'on Error Resume Next '容错模式(忽略特殊文件夹错误)
看下提示信息,估计是权限问题。
Change
on Error Resume Next '容错模式(忽略特殊文件夹错误)
to:
'on Error Resume Next '容错模式(忽略特殊文件夹错误)
Let's take a look at the prompt message, it is estimated to be a permission issue.
|

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
2010-3-27 19:33 |
|
|
kidzgy
中级用户
  
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第 17 楼』:
使用 LLM 解释/回答一下
我希望所以文件取大小能精确到百分位。
比如
218.12MB
1.02GB
35.60KB
I hope all file sizes can be precise to the hundredth place.
For example
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 楼』:
使用 LLM 解释/回答一下
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。
slore, this VBS cannot complete directory recursion normally on my system. But after looking at the code for a long time, I can't find anything wrong...
|
|
2010-3-28 21:09 |
|
|
slore
铂金会员
      
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第 20 楼』:
使用 LLM 解释/回答一下
Originally posted by tachyon at 2010-3-28 21:09:
slore, 这个vbs在我的系统上也无法正常完成目录递归。
不过看了半天代码也没发现什么地方不对的。。。
代码逻辑是正确的。。。估计是那个对象的问题,一些文件夹会莫名其妙的没有权限,尤其是系统的一些文件夹。
Originally posted by tachyon at 2010-3-28 21:09:
slore, this vbs cannot complete directory recursion normally on my system.
But after looking at the code for a long time, I can't find anything wrong...
The code logic is correct... It is estimated that it is a problem with that object. Some folders will inexplicably have no permissions, especially some system folders.
|

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
2010-3-28 22:24 |
|
|
slore
铂金会员
      
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第 21 楼』:
使用 LLM 解释/回答一下
Originally posted by kidzgy at 2010-3-28 11:14:
我希望所以文件取大小能精确到百分位。
比如
218.12MB
1.02GB
35.60KB
FormatSize函数自己改改吧。
Originally posted by kidzgy at 2010-3-28 11:14:
I hope that the size of all files can be accurate to the hundredth place.
For example
218.12MB
1.02GB
35.60KB
Modify the FormatSize function yourself.
|

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
2010-3-28 22:26 |
|
|
kidzgy
中级用户
  
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第 22 楼』:
使用 LLM 解释/回答一下
抱歉,我对此一窍不通哦,具体怎么改哦?什么替换成什么?
Sorry, I know nothing about this. Specifically, how to change it? What to replace with what?
|
|
2010-3-29 12:49 |
|
|
slore
铂金会员
      
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第 23 楼』:
使用 LLM 解释/回答一下
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
```vbnet
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 |
|