VBS计算文件、文件夹大小

qq692172929

1. set open=createobject("scripting.filesystemobject")
   
2. str=inputbox("请输入文件(夹)名称或文件(夹)完整路径:",wscript.scriptname)
   
3. if open.fileexists(str) then
   
4. f1=open.getfile(str).size
   
5. if f1<=1024 then
   
6. sum=f1/1024
   
7. t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
   
8. else
   
9. if f1<=1024^2 then
   
10. sum=f1/1024^2
    
11. t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
    
12. else
    
13. sum=f1/1024^2
    
14. t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
    
15. end if
    
16. end if
    
17. else
    
18. f2=open.getfolder(str).size
    
19. if f2<=1024 then
    
20. sum=f2/1024
    
21. t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
    
22. else
    
23. if f2<=1024^2 then
    
24. sum=f2/1024^2
    
25. t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
    
26. else
    
27. sum=f2/1024^2
    
28. t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
    
29. end if
    
30. end if
    
31. end if
    
32. msgbox round(t,2)&" MB",64,wscript.scriptname

复制代码

powerbat

1. 
   
2. function HumanSize(size)
   
3.     Dim Units, Gates, SizeStr
   
4.     Units = Array("Byte", "KB", "MB", "GB", "TB")
   
5.     Gates = Array(1, 1024, 1024^2, 1024^3, 1024^4)
   
6. 
   
7.     SizeStr = "0Byte"
   
8.     for i=UBound(Units) to 0 Step -1
   
9.         if size>=Gates(i) then
   
10.             SizeStr = FormatNumber(Size/Gates(i), 2) & Units(i)
    
11.             exit for
    
12.         end if
    
13.     next
    
14. HumanSize = SizeStr
    
15. end function
    
16. 
    
17. 'example
    
18. set fso = CreateObject("Scripting.FileSystemObject")
    
19. Size = fso.GetFolder(".").Size
    
20. WScript.Echo Size & " = " & HumanSize(Size)
    

复制代码

Demon

1. 
   
2. Function format_size(size)
   
3.     On Error Resume Next 'For Log(0)
   
4.     sizes = array(" Bytes", " KB", " MB", " GB", " TB", " PB")
   
5.     i = Int(Log(size) / Log(1024))
   
6.     format_size = Round(size / 1024 ^ i, 2) & sizes(i)
   
7. End Function
   
8. 
   
9. 'Example
   
10. Set fso = CreateObject("Scripting.FileSystemObject")
    
11. size = fso.GetFolder(".").Size
    
12. WScript.Echo format_size(size)
    

复制代码

powerbat

VBS的函数真不省心，默认会省略纯小数（整数部分为0的小数）小数点前面的0，这虽然是合法的小数表示法，但不符合人的习惯。Round函数没有选项改变这种行为，FormatNumber函数可以指定。但FormatNumber不爽的是对纯整数也要添加指定个数的小数位，没有选项可以设置不要添加。

FormatNumber(Size/Gates(i), 2, -1, , 0)