mirror of
https://github.com/sstent/Scripts.git
synced 2026-01-26 07:02:20 +00:00
16 lines
497 B
Plaintext
16 lines
497 B
Plaintext
dim oFS, oFolder
|
|
set oFS = WScript.CreateObject("Scripting.FileSystemObject")
|
|
set oFolder = oFS.GetFolder("c:\documents and settings\")
|
|
|
|
ShowFolderDetails oFolder
|
|
|
|
sub ShowFolderDetails(oF)
|
|
dim F
|
|
wscript.echo oF.Name & ":Size=" & oF.Size
|
|
wscript.echo oF.Name & ":#Files=" & oF.Files.Count
|
|
wscript.echo oF.Name & ":#Folders=" & oF.Subfolders.count
|
|
wscript.echo oF.Name & ":Size=" & oF.Size
|
|
for each F in oF.Subfolders
|
|
ShowFolderDetails(F)
|
|
next
|
|
end sub |