Tagged: DDR

Count files in SCCM-inboxes

Working on some problems with old DDR-files and googled up a script that exported count of files to excel… did a small hack to it and it’s a nice-to-have tool.

Set oFSO = CreateObject("Scripting.FileSystemObject")

Sub ListFolders(sPath)
	Set oFolder = oFSO.GetFolder(sPath)
	if oFolder.Files.Count <> 0 then
		wscript.echo Left(oFolder.Files.Count & "        ", 6) & vbTab & oFolder.Path
	End if
	For Each oFldr In oFolder.SubFolders
		ListFolders oFldr.Path
End Sub

Original script: http://myitforum.com/cs2/blogs/dhite/archive/2006/07/23/22467.aspx