China DOS Union

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.

I hope all file sizes can be precise to the hundredth place.

For example
218.12MB
1.02GB
35.60KB

Support

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...

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.

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.

Sorry, I know nothing about this. Specifically, how to change it? What to replace with what?

```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
```

It's done. Thanks a lot~