获得文件夹大小的VBS代码_VBS

获得文件夹大小的VBS代码

2020-08-12 10:10VBS代码网 VBS

这篇文章主要介绍了vbs中获得文件夹大小的代码,需要的朋友可以参考下

核心代码

				?

									'----------------------

									'获得文件夹的大小

									'Author  = baiyang

									'Version = 1.0

									'Date  = 09.08.08

									'----------------------

									Option Explicit

									On Error Resume Next

									Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess

									'判断是不是没有路径参数

									If WScript.Arguments.Count < 1 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 Then

									   strSizeMess = Round( longLocalFolderSize/1024/1024/1024, 3 ) & " G"

									   Else

									   strSizeMess = longLocalFolderSize & " B"

									End If

									WScript.Echo strSizeMess

									Set objFSO = Nothing

									Set objLocalFolder = Nothing

									WScript.Quit