FolderSize report (recursive)

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

FolderSize report (recursive)

Logged in as: Guest

arrSession:exec spGetSession 2,16,37597

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> FolderSize report (recursive)
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

FolderSize report (recursive) - 9/8/2006 6:35:57 PM

Snipah

Posts: 1341
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

Having diskspace troubles? Can't put the finger on where the chunk of data is? This will report from Bytes to Yotta (!!) to calc the diskspace and list it in a HTML ouput file (for lay-out purposes)

S.

'*****************************************************************************************************
'
'Type:     Application
'Script Name:  02-Check_and_List_the_Folder_size.vbs
'Author:     Snipah
'Comments:   Check for folders/subfolders/files and give the total foldersize in an HTML layout
'
'*****************************************************************************************************
'Option Explicit
On Error Resume Next

'** set constants
Const inBYTE = 1
Const inKILO = 1024      ' 2^10
Const inMEGA = 1048576     ' 2^20
Const inGIGA = 1073741824    ' 2^30
Const inTERA = 1099511627776   ' 2^40
Const inPETA = 1.12589990684262E+15  ' 2^50
Const inEXA = 1.15292150460685E+18  ' 2^60
Const inZETTA = 1.18059162071741E+21 ' 2^70
Const inYOTTA = 1.20892581961463E+24 ' 2^80

'** set vars
Set objWshShell = CreateObject("WScript.Shell")
strDesktop = objWshShell.SpecialFolders("Desktop")
fSaveName = strDesktop & "\folder_size.htm"
fCalcPath = InputBox("Give the pathname to query","Folder Sizer Checker","D:\")
If fCalcPath = "" Then Wscript.Quit
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set FileTxt = objFSO.CreateTextFile(fSaveName, True)
Set Folder = objFSO.GetFolder(fCalcPath)

'** set heading
FileTxt.WriteLine "<html><body><table border=1 cellpadding=2 cellspacing=0><th>Folder path</th><th>Total Folder size</th><th>Total Subfolder(s) size</th>"

'** get rootfolder sizes
Set rootFolder = objFSO.GetFolder(Folder)
For Each rootSubFolder in rootFolder.Subfolders
Set colFiles = rootFolder.Files
'** get current folder files sizes
For Each objFile in colFiles
 tSize = objFile.Size + tSize
Next
'** get current sub-folder sizes
tfSize = rootSubFolder.Size + tfSize
Next 
If tSize < inKILO Then
fSize = (tSize/inBYTE)
tSize = FormatNumber(fSize,,,,0) & " bytes"
ElseIf tSize < inMEGA Then
fSize = (tSize/inKILO)
tSize = FormatNumber(fSize,,,,0) & " kb"
ElseIf tSize < inGIGA Then
fSize = (tSize/inMEGA)
tSize = FormatNumber(fSize,,,,0) & " MB"
ElseIf tSize < inTERA Then
fSize = (tSize/inGIGA)
tSize = "" & FormatNumber(fSize,,,,0) & " GB"
End If
If tfSize < inKILO Then
ffSize = (tfSize/inBYTE)
tfSize = FormatNumber(ffSize,,,,0) & " bytes"
ElseIf tfSize < inMEGA Then 
ffSize = (tfSize/inKILO)
tfSize = FormatNumber(ffSize,,,,0) & " kb"
ElseIf tfSize < inGIGA Then 
ffSize = (tfSize/inMEGA)
tfSize = FormatNumber(ffSize,,,,0) & " MB"
ElseIf tfSize < inTERA Then 
ffSize = (tfSize/inGIGA)
tfSize = "" & FormatNumber(ffSize,,,,0) & " GB"
End If 
FileTxt.WriteLine "<tr bgcolor=#FFFFCC><td><a href='" & Folder.Path & "'>" & Folder.Path & "</a></td><td align=right>" & tSize & "</td><td align=right>" & tfSize & "</td></tr>"
tsize = 0
Set rootFolder = Nothing

'** get main subfolder sizes
For Each SubFolder In Folder.Subfolders 
Set currentFolder = objFSO.GetFolder(SubFolder)
Set colFiles = currentFolder.Files
'** get subfolder files
For Each objFile in colFiles
 tSize = objFile.Size + tSize
Next
If tSize < inKILO Then
 fSize = (tSize/inBYTE)
 tSize = FormatNumber(fSize,,,,0) & " bytes"
ElseIf tSize < inMEGA Then
 fSize = (tSize/inKILO)
 tSize = FormatNumber(fSize,,,,0) & " kb"
ElseIf tSize < inGIGA Then
 fSize = (tSize/inMEGA)
 tSize = FormatNumber(fSize,,,,0) & " MB"
ElseIf tSize < inTERA Then
 fSize = (tSize/inGIGA)
 tSize = "" & FormatNumber(fSize,,,,0) & " GB"
End If
If (SubFolder.Size < inKILO) Then
 ffSize = (SubFolder.Size/inBYTE)
 tfSize = FormatNumber(ffSize,,,,0) & " bytes"
ElseIf (SubFolder.Size < inMEGA) Then 
 ffSize = (SubFolder.Size/inKILO)
 tfSize = FormatNumber(ffSize,,,,0) & " kb"
ElseIf (SubFolder.Size < inGIGA) Then 
 ffSize = (SubFolder.Size/inMEGA)
 tfSize = FormatNumber(ffSize,,,,0) & " MB"
ElseIf (SubFolder.Size < inTERA) Then 
 ffSize = (SubFolder.Size/inGIGA)
 tfSize = "" & FormatNumber(ffSize,,,,0) & " GB"
End If 
 
FileTxt.WriteLine "<tr bgcolor=#FFFFCC><td><a href='" & SubFolder.Path & "'>" & SubFolder.Path & "</a></td><td align=right>" & tSize & "</td><td align=right>" & tfSize & "</td></tr>"
tsize = 0
funcGetSubFolders SubFolder.Path
Next

'** closing down
FileTxt.WriteLine "</table></body></html>"
FileTxt.Close
MsgBox "Done calculating, please open: " & fSaveName,64,"Folder Sizer Checker"
Set objFSO = Nothing
Set FileTxt = Nothing
Set Folder = Nothing
Wscript.Quit

'** Function to check sub-sub-folders
Sub funcGetSubFolders(sPath)
Set objFldr = objFSO.GetFolder(sPath)
For Each SubFolder In objFldr.SubFolders
Set currentFolder = objFSO.GetFolder(SubFolder)
Set colFiles = currentFolder.Files
'** get sub-subfolder files
For Each objFile in colFiles
 tSize = objFile.Size + tSize
Next

If tSize < inKILO Then
 fSize = (tSize/inBYTE)
 tSize = FormatNumber(fSize,,,,0) & " bytes"
ElseIf tSize < inMEGA Then
 fSize = (tSize/inKILO)
 tSize = FormatNumber(fSize,,,,0) & " kb"
ElseIf tSize < inGIGA Then
 fSize = (tSize/inMEGA)
 tSize = FormatNumber(fSize,,,,0) & " MB"
ElseIf tSize < inTERA Then
 fSize = (tSize/inGIGA)
 tSize = "" & FormatNumber(fSize,,,,0) & " GB"
End If
 
If (SubFolder.Size < inKILO) Then
 ffSize = (SubFolder.Size/inBYTE)
 tfSize = FormatNumber(ffSize,,,,0) & " bytes"
ElseIf (SubFolder.Size < inMEGA) Then 
 ffSize = (SubFolder.Size/inKILO)
 tfSize = FormatNumber(ffSize,,,,0) & " kb"
ElseIf (SubFolder.Size < inGIGA) Then 
 ffSize = (SubFolder.Size/inMEGA)
 tfSize = FormatNumber(ffSize,,,,0) & " MB"
ElseIf (SubFolder.Size < inTERA) Then 
 ffSize = (SubFolder.Size/inGIGA)
 tfSize = "" & FormatNumber(ffSize,,,,0) & " GB"
End If

FileTxt.WriteLine "<tr><td><a href='" & SubFolder.Path & "'>" & SubFolder.Path & "</a></td><td align=right>" & tSize & "</td><td align=right>" & tfSize & "</td></tr>"
tsize = 0
funcGetSubFolders SubFolder.Path
Next
Set objFldr = Nothing
End Sub

// edit: added the root-folder and file-sizes, thx for the tips of improving it MBouchard ;)

< Message edited by Snipah -- 9/10/2006 6:29:13 AM >

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

Revisions: 2 | Post #: 1

RE: FolderSize report (recursive) - 9/9/2006 6:08:29 AM

mbouchard

Posts: 1851
Score: 14
Joined: 5/15/2003
From: USA
Status: online

Very nice. Suggestion, make the folder path a link.

Thinking on it, and not sure if this is even feasible. Can you make it so that the folder size shown is only the files in the folder and not any sub folders.
ex.

Total D:\ = 5gig
D: = 200meg
Total D:\folder1 = 1 gig
d:\folder1 = 250meg
d:\folder1\subfolder = 250meg
d:\folder1\subfolder2 = 250meg
etc

If you do something like this, you would need 3 columns. Path, total, Size of files.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to Snipah)

Post #: 2

RE: FolderSize report (recursive) - 9/10/2006 10:41:47 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

my du.vbs script will also do this, and diskspace problems was the exact reason i wrote mine as well

http://www.visualbasicscript.com/m_27178/mpage_1/key_du.vbs/tm.htm#27178

on a side note: i like the output to html, i often dont consider making my output pretty because i am generally the only user of my scripts

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site

(in reply to mbouchard)

Post #: 3

RE: FolderSize report (recursive) - 9/10/2006 11:22:32 PM

mbouchard

Posts: 1851
Score: 14
Joined: 5/15/2003
From: USA
Status: online

Very nice, about the only change I will make to it would be to add this line

objWshShell.Run "iexplore.exe " & fSaveName

Hmm, wonder how it will work on a remote PC. Will need to try that.

Edit: I have run this against my PC using \\compname\d$\ and while it is running, it is taking much much longer.

< Message edited by mbouchard -- 9/10/2006 11:26:16 PM >

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to kirrilian)

Revisions: 1 | Post #: 4

RE: FolderSize report (recursive) - 9/11/2006 4:31:32 AM

Snipah

Posts: 1341
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

quote:

ORIGINAL: mbouchard

Very nice, about the only change I will make to it would be to add this line

objWshShell.Run "iexplore.exe " & fSaveName

Hmm, wonder how it will work on a remote PC. Will need to try that.

Edit: I have run this against my PC using \\compname\d$\ and while it is running, it is taking much much longer.

In general, UNC approaches are slower and less risk-save then other approaches...

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to mbouchard)

Post #: 5

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> FolderSize report (recursive)

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts