标题: 如何获得文件夹大小? [打印本页]

---

作者: dongheng     时间: 2007-8-12 13:29    标题: 如何获得文件夹大小?

如何获得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