文件截图：
运行结果：
第一步：编写脚本 GetFloderSize.vbs
1 '获得文件夹的大小 by 王牌飞行员（https://www.cnblogs.com/KMould/p/12334814.html） 2020年02月20日 2 Option Explicit 3 On Error Resume Next 4 Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess 5 '判断参数 6 If WScript.Arguments.Count < 2 Then 7 WScript.Echo "缺少参数，第一个参数为文件夹路径，第二个参数为报告路径" 8 WScript.Quit 9 Else 10 strArg = WScript.Arguments(0) 11 End If 12 13 Set objFSO = CreateObject("Scripting.FileSystemObject") 14 Set objLocalFolder = objFSO.GetFolder(strArg) 15 16 If objLocalFolder = Empty Then 17 WScript.Echo "Invalid Path" 18 WScript.Quit 19 End If 20 21 longLocalFolderSize = objLocalFolder.Size 22 23 If longLocalFolderSize>=1024 And longLocalFolderSize<1024*1024 Then 24 strSizeMess = Round( longLocalFolderSize/1024, 3 ) & " K" 25 ElseIf longLocalFolderSize>=1024*1024 And longLocalFolderSize<1024*1024*1024 Then 26 strSizeMess = Round( longLocalFolderSize/1024/1024, 3 ) & " M" 27 ElseIf longLocalFolderSize>=1024*1024*1024 And longLocalFolderSize<1024*1024*1024*1024 Then 28 strSizeMess = Round( longLocalFolderSize/1024/1024/1024, 3 ) & " G" 29 ElseIf longLocalFolderSize>=1024*1024*1024*1024 Then 30 strSizeMess = Round( longLocalFolderSize/1024/1024/1024/1024, 3 ) & " T" 31 Else 32 strSizeMess = longLocalFolderSize & " B" 33 End If 34 Set objFSO = Nothing 35 Set objLocalFolder = Nothing 36 37 '-------------------get report -------------------------------- 38 Dim strReport,fs,f 39 strReport=WScript.Arguments(1) 40 set fs =CreateObject("scripting.filesystemobject") 41 set f =fs.opentextfile(strReport,8) 42 f.writeline date() & " " & strArg & " " & strSizeMess 43 f.close 44 Set fs = Nothing 45 '-------------------------------------------------------------- 46 'WScript.Echo "完成！" 47 WScript.Quit
第二步：使用批处理脚本GetFloderSize.bat调用VBS脚本使用
@echo off rem 文件夹路径 报告路径 call GetFloderSize.vbs D:M D:报告.txt echo 成功！