count subfolders

P

peter

Hi,
The properties of a windows folder gives you file size on disk, file count,
and folder count.
I need a vba to extract that info.
Any ideas???

peter
(nested folders and files included)
 
J

joel

Sub GetFolderInfo()

strFolder = "C:\temp"

Set fso = CreateObject _
("Scripting.FileSystemObject")
Set folder = _
fso.GetFolder(strFolder)


FolderSize = folder.Size
Files = folder.Files.Count
Subfolders = folder.Subfolders.Count
Size = folder.Size
End Su
 
Top