Windows

Loop through and print directory size

1 2 3 4 5 6 7 8 9 10 11 Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject")   Set objFolder = objFSO.GetFolder("C:\")   Set colSubfolders = objFolder.Subfolders   For Each objSubfolder in colSubfolders on error resume next Wscript.Echo objSubfolder.Name, objSubfolder.Size Next »