如何获得A文件夹和B文件夹大小,并将两个文件夹大小相减,以KB为单位显示结果?
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何获得文件夹大小?
查看 833 回复 2
楼 主
如何获得文件夹大小?
发表于 2007-08-12 13:29 · 中国 广西 钦州 电信
第 2 楼
发表于 2007-08-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
只能算个大概。
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
只能算个大概。
第 3 楼
发表于 2007-08-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
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
论坛跳转: