將底下的程式碼複製並貼到「記事本」內,然後存成 x.vbs ,存在任意的資料夾內,假設存在 C:\ 好了
存檔後執行,
開始 >>
執行>> 輸入
c:\x.vbs "目標資料夾" >>
確定例如執行
c:\x.vbs "C:\Documents and Settings\All Users" 後就會一一顯示 All Users 底下的所有資料夾的大小
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(WScript.Arguments(0))
For Each fd In fld.Subfolders
Msgbox "("&fd.name&")"&"資料夾的大小是 "&round(fd.size/1048576,2)&" MB"
Next