Option Explicit
Dim fs, objFSO, objLogFile, oFolder
Set fs = CreateObject("scripting.filesystemobject")
oFolder = Wscript.Arguments.Item(0)
Const ForAppending = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile("test.txt", ForAppending, True)
objLogFile.Write(oFolder & " (F=")
objLogFile.Write CountFiles(oFolder)
objLogFile.Write(" D=")
objLogFile.Write CountFolders(oFolder)
objLogFile.Write(" ")
objLogFile.Write FolderSize(oFolder)
objLogFile.Write(" bytes)" & vbCrLf )
objLogFile.Close
Function CountFolders (ByVal StrFolder)
Dim ParentFld
Dim SubFld
Dim IntCount
Set ParentFld = fs.GetFolder (StrFolder)
IntCount = ParentFld.SubFolders.Count
For Each SubFld In ParentFld.SubFolders
IntCount = IntCount + CountFolders(SubFld.Path)
Next
CountFolders = IntCount
End Function
Function FolderSize (ByVal StrFolder)
Dim ParentFld
Dim IntCount
Set ParentFld = fs.GetFolder (StrFolder)
IntCount = ParentFld.size
FolderSize = IntCount
End Function
Function CountFiles (ByVal StrFolder)
Dim ParentFld
Dim SubFld
Dim IntCount
Set ParentFld = fs.GetFolder (StrFolder)
IntCount = ParentFld.Files.Count
For Each SubFld In ParentFld.SubFolders
IntCount = IntCount + CountFiles(SubFld.Path)
Next
CountFiles = IntCount
End Function