Count files in SCCM-inboxes

By Rikard Ronnkvist, 2008-11-25 14:55 ConfigMgr

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")
ListFolders("\\MyServername\SMS_C01\inboxes")

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
        Next
End Sub

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