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 Sub
--
joel
------------------------------------------------------------------------
joel's Profile:
http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=149288