[分享] getFoldersSize.vbs 枚举子目录大小

CrLf

也来凑热闹，vbs 用 getfolder.size 简单实现枚举目录大小，效率上应该是慢于 vbs 中递归求和的，但不会因为文件夹权限限制而漏算（有碰到过权限不足进不去的情况）：

1. Dim arg,ws '对象
   
2. Dim Mode_SubFolders '布尔
   
3. Dim path '字符串
   
4. 
   
5. Set arg = WScript.Arguments
   
6. path = "." '遍历路径默认为当前目录
   
7. If arg.Unnamed.Count Then path = arg.Unnamed(0) '获取遍历路径
   
8. Mode_SubFolders = arg.Named.Exists("s") '判断是否使用了 /s 开关，不分大小写
   
9. 
   
10. getSize(path) '调用过程
    
11. 
    
12. '函数 & 过程
    
13. Sub getSize(ByVal path)
    
14.         On Error Resume Next '忽略错误
    
15.         Dim fso
    
16.         Set fso = WScript.CreateObject("Scripting.Filesystemobject")
    
17.        
    
18.         For Each subFolder In fso.GetFolder(path).SubFolders
    
19.                 WScript.Echo subfolder.Size&" "  & subfolder '
    
20.                 If Mode_SubFolders Then getSize(subFolder) '为子目录调用过程
    
21.         Next
    
22. End Sub

复制代码

调用方法：

1. cscript getFoldersSize.vbs d:
   
2. ::获取 D:\ 路径下的所有目录大小，不含子目录
   
3. cscript getFoldersSize.vbs /s
   
4. ::获取当前工作路径下的所有子目录大小
   
5. cscript getFoldersSize.vbs /s c:\windows
   
6. ::获取 c:\windows 路径下的所有子目录大小

复制代码

523066680

楼主有空的话增加个可选参数 - 以MB为单位显示大小
到时候拿来用

CrLf

来一个递归求和的方案，求快就不提供开关了：

1. Dim fso,arg '对象
   
2. Dim path '字符串
   
3. 
   
4. Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
5. Set arg = WScript.Arguments
   
6. 
   
7. path = "." '遍历路径默认为当前目录
   
8. If arg.Unnamed.Count Then path = arg.Unnamed(0) '获取遍历路径
   
9. 
   
10. WScript.Echo getFolderSize(path) + getFileSize(path) + 0 & " " & fso.GetFolder(path).Path '调用过程
    
11. 
    
12. '函数 & 过程
    
13. Function getFolderSize(ByVal path)
    
14.     On Error Resume Next '忽略错误
    
15.     Dim folderSize '定义临时变量
    
16.    
    
17.     For Each folder In fso.GetFolder(path).SubFolders
    
18.         folderSize = getFolderSize(folder) + getFileSize(folder)
    
19.         WScript.Echo folderSize + fileSize + 0 & " """ & folder.Path & """" '为子目录调用过程
    
20.         getFolderSize = getFolderSize + folderSize '获取子目录体积总和
    
21.     Next
    
22. End Function
    
23. 
    
24. Function getFileSize(ByVal path)
    
25.     On Error Resume Next '忽略错误
    
26.    
    
27.     For Each file In fso.GetFolder(path).Files
    
28.         getFileSize = getFileSize + file.Size '获取子文件体积总和
    
29.     Next
    
30. End Function

复制代码

用法是

1. cscript /nologo getFoldersSize.vbs d:

复制代码

试了下很惊奇地发现这个居然没有顶楼 getfolder.size 的方案快

freesoft00

回复 1# CrLf


    win7 64位我测试出现无法找到脚本文件“F:\33.vbs”的错误提示。
我把vbs脚本改为了33.vbs

CrLf

正好用到，用 bat+js 重写了一个

1. 1>1/* :
   
2. @cscript /nologo /e:jscript "%~f0" %*
   
3. @exit /b
   
4. */
   
5. 
   
6. var arg = WScript.Arguments
   
7. 
   
8. 
   
9. 
   
10. var option = {
    
11.   SubFolders: arg.Named.Exists("s"),
    
12.   Help: arg.Named.Exists("?")
    
13. }
    
14. 
    
15. if(option.Help){
    
16.   WSH.Echo(
    
17.       'getFoldersSize 批量获取文件夹大小 v1.1  by  http://bbs.bathome.net  CrLf\r\n'
    
18.     + '\r\n'
    
19.     + 'Usage: getFoldersSize  [Path] [/S]\r\n'
    
20.     + '\r\n'
    
21.     + '         Path  目标文件夹路径或目录名，目录名可包含通配符\r\n'
    
22.     + '\r\n'
    
23.     + '          /S   遍历子目录\r\n'
    
24.   )
    
25.   
    
26.   WSH.Quit()
    
27. }
    
28. 
    
29. 
    
30. var strPath = "."
    
31. var rePattern =  new RegExp()
    
32. 
    
33. if(arg.Unnamed.Count){
    
34.   var strFoler = arg.Unnamed(0)
    
35.   
    
36.   strPath = strFoler.replace(/[^\\\/:]+$/,'') || '.'
    
37.   
    
38.   rePattern.compile(
    
39.         '^'
    
40.         +strFoler
    
41.           .replace(/.*[\\\/:\|"'\<\>]/g,'')
    
42.           .replace(/\W/g,'\\$&')
    
43.           .replace(/\\\*/g,'.*')
    
44.           .replace(/\\\?/g,'.')
    
45.         +'$'
    
46.         ,'im'
    
47.       )
    
48. }
    
49. 
    
50. getFolderSize(strPath, rePattern, option)
    
51. 
    
52. 
    
53. 
    
54. function getFolderSize(strPath, rePattern, option){
    
55.       
    
56.         var fso = WScript.CreateObject("Scripting.Filesystemobject")
    
57.   
    
58.   var objFolder = fso.GetFolder(strPath);
    
59.   var objSubFolders = new Enumerator(objFolder.SubFolders);
    
60.   
    
61.   for (; !objSubFolders.atEnd(); objSubFolders.moveNext()) {
    
62.     var fc = objSubFolders.item()
    
63.     try{
    
64.       if(fc.Name.search(rePattern)>-1){
    
65.         var size = ('            '+fc.Size).replace(/.*(.{12})$/,'$1')
    
66.         var name = option.SubFolders ? fc.Path + '\\' + fc.Name : fc.Name
    
67.         WSH.Echo(size+'    '+name);
    
68.       }
    
69.       if(option.SubFolders)getSubFolderSize(fc, rePattern, option)
    
70.     }
    
71.     catch(E){
    
72.       WSH.StdErr.WriteLine('Error:'+E.message+' - '+fc.Name);
    
73.     }
    
74.   }
    
75. }
    
76. 
    
77. function getSubFolderSize(objFolder, rePattern, option){
    
78.   var objSubFolders = new Enumerator(objFolder.SubFolders);
    
79.   var arrEcho = []
    
80.   for (; !objSubFolders.atEnd(); objSubFolders.moveNext()) {
    
81.     var fc = objSubFolders.item()
    
82.     try{
    
83.       if(fc.Name.search(rePattern)>-1){
    
84.         var size = ('            '+fc.Size).replace(/.*(.{12})$/,'$1')
    
85.         var name = fc.Path + '\\' + fc.Name
    
86.         WSH.Echo(size+'    '+name);
    
87.       }
    
88.     }
    
89.     catch(E){
    
90.       WSH.StdErr.WriteLine('Error:'+E.message+' - '+fc.Name);
    
91.     }
    
92.    
    
93.     getSubFolderSize(fc, rePattern, option)
    
94.   }
    
95. }

复制代码