'==========================================================================
'
' NAME: ReportMP3.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE : 8/28/2006
'
' COMMENT: <comment>
'
'==========================================================================
'---------------------------------------------------------------------------------------
'
' Name: getfoldersize.vbs
' Version: 1.0
' Date: 3/1/2004
' Author: Mark D. MacLachlan
' Description: getfoldersize.vbs calculates the size of all subfolders within
' a folder
'
'---------------------------------------------------------------------------------------
Dim Sizereport
rootfolder = Inputbox("Enter directory/foldername: " & _
chr(10) & chr(10) & "(i.e. C:\Program Files or " & _
"\\Servername\C$\Program Files)" & chr(10) & chr(10), _
"Getfoldersize", "C:\4myRide")
outputfile = "c:\4myRide\MP3size_" & Day(now) & Month(now) & Year(now) & ".txt"
Set fso = CreateObject("scripting.filesystemobject")
if fso.fileexists(outputfile) then fso.deletefile(outputfile)
report = ""
'Run checkfolder
MP3SizeReport = CheckFolder(rootfolder, 0)
Function CheckFolder(objCurrentFolder, SizeReport)
Set oFolder = fso.GetFolder(objCurrentFolder)
For Each oFile In oFolder.files
If oFile.Type = "MP3 Format Sound" Then
Report = Report & vbCrLf & oFile.Name & " " & oFile.Size
SizeReport = SizeReport + oFile.Size
End If
Next
'Recurse through all of the folders
For Each objNewFolder In oFolder.subFolders
CheckFolder objNewFolder, SizeReport
Next
CheckFolder = SizeReport
End Function
Report = Report & vbCrLf & "Total MP3 Size =" & (MP3SizeReport/1024\1024) & "MB"
Set ts = fso.CreateTextFile (outputfile, ForWriting)
ts.write report
'Message when finished
Set WshShell = CreateObject("WScript.Shell")
Finished = Msgbox ("Script executed successfully, results can be found in " & Chr(10) _
& outputfile & Chr(10) & Chr(10) _
& "Do you want to view the results now?", 65, "Script executed successfully!")
if Finished = 1 then WshShell.Run "notepad " & outputfile