如何获得A文件夹和B文件夹大小,并将两个文件夹大小相减,以KB为单位显示结果?作者: 1112yuhua 时间: 2007-8-12 17:51 @echo off & setlocal enabledelayedexpansion
set /p A=输入第一个文件夹:
set /p B=输入第二个文件夹:
FOR /F "delims==" %%i IN ('dir /b/s !A!\') DO set /a size1+=%%~zi
set /a a=!size1!/1024
FOR /F "delims==" %%i IN ('dir /b/s !B!\') DO set /a size2+=%%~zi
set /a b=a-!size2!/1024
echo !b:-=!KB
pause
只能算个大概。作者: zerocq 时间: 2007-8-12 23:27 Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function