【VBS】获取文件夹大小

文件截图：

运行结果：

 第一步：编写脚本 GetFloderSize.vbs

'获得文件夹的大小  by  王牌飞行员（https://www.cnblogs.com/KMould/p/12334814.html）  2020年02月20日
Option Explicit
On Error Resume Next
Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess
'判断参数
If WScript.Arguments.Count < 2 Then
  WScript.Echo "缺少参数，第一个参数为文件夹路径，第二个参数为报告路径"
  WScript.Quit
Else
  strArg = WScript.Arguments(0)
End If
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLocalFolder = objFSO.GetFolder(strArg)
 
If objLocalFolder = Empty Then
  WScript.Echo "Invalid Path"
  WScript.Quit
End If
 
longLocalFolderSize = objLocalFolder.Size
 
If longLocalFolderSize>=1024 And longLocalFolderSize<1024*1024 Then
  strSizeMess = Round( longLocalFolderSize/1024, 3 ) & " K"
  ElseIf longLocalFolderSize>=1024*1024 And longLocalFolderSize<1024*1024*1024 Then
  strSizeMess = Round( longLocalFolderSize/1024/1024, 3 ) & " M"
  ElseIf longLocalFolderSize>=1024*1024*1024 And longLocalFolderSize<1024*1024*1024*1024 Then
  strSizeMess = Round( longLocalFolderSize/1024/1024/1024, 3 ) & " G"
  ElseIf longLocalFolderSize>=1024*1024*1024*1024 Then
  strSizeMess = Round( longLocalFolderSize/1024/1024/1024/1024, 3 ) & " T"
   Else
   strSizeMess = longLocalFolderSize & " B"
End If
Set objFSO = Nothing
Set objLocalFolder = Nothing

'-------------------get report --------------------------------
Dim strReport,fs,f
strReport=WScript.Arguments(1)
set fs =CreateObject("scripting.filesystemobject")
set f =fs.opentextfile(strReport,8)
f.writeline date() & "      " & strArg & "      " & strSizeMess
f.close
Set fs = Nothing
'--------------------------------------------------------------
'WScript.Echo "完成！"
WScript.Quit

第二步：使用批处理脚本GetFloderSize.bat调用VBS脚本使用  

@echo off
rem 文件夹路径 报告路径
call GetFloderSize.vbs D:M D:报告.txt
echo 成功！