Search Disk for Directory Sizes

[djtech2k]

I need something that I can use to search through a disk and find directories that are over a certain size. For example, I would like something to search a machine and return a list of any directories that have a total size of over 500mb.

I know it will be something with filesystemobject, am not sure how I can get it to run through an entire disk and not just one directory.

 

[dm4ever]

This sounds similar to this:

http://www.tek-tips.com/viewthread.cfm?qid=1391211&page=1

And rather than concentrating on the files...just worry about the folders.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[djtech2k]

Ok, I think I have the recursion of the folders working, now how do I get the directory size in something like kb or mb?

 

[djtech2k]

Nevermind my last post. I have the size in bytes now. I just need to convert.

 

[djtech2k]

I have got everything working now, but have a simple question. When I dump the info I want in a delimited format or to an xls, how can I order the results? What I mean is that if I export say the directory path and the size, how can I sort them with the larger sizes at the top?

As of now, I dump, then manually open excel and import/format the data. If I can sort/format it programatically, that would be great.

 

[dm4ever]

I'm not great with excel, but the following worked for me.

Option Explicit

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const OutputFile = "C:\temp\dir.csv"
Const xlAscending = 1
Const xlDescending = 2
Const xlNo = 2
Const xlYes = 1

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFolder : Set objFolder = objFSO.GetFolder("C:\temp")
Dim objFile : Set objFile = objFSO.OpenTextFile(OutputFile, ForWriting, True)
Dim objSubFolder
For Each objSubFolder In objFolder.SubFolders
	objFile.WriteLine objSubFolder.Name & "," & FormatNumber(objSubFolder.Size/1024^2, 2)
Next
objFile.Close

Dim objExcel : Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open OutputFile
Dim objWorkbook : Set objWorkbook = objExcel.Worksheets(1)
Dim objRange : Set objRange = objWorkbook.Range("B1")
objRange.Sort objRange,xlDescending,,,,,,xlNo

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[PHV]

Have a look here:
faq329-3362
Furthermore you may use the CopyFromRecordset method of the Excel.Range object.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886