FolderSize_Swift

Gets total of folder size in bytes.
With some tweaks, you can modify it to use in VB, VBA and ASP Classic


Public

Tested

My Own Work
Function FolderSize_Swift(dFolder)
   Set fs = CreateObject("Scripting.FileSystemObject")
   fileCount = 0
'   myDir = Server.MapPath(HTMLFolder)      ' "C:\DATA\Sourcefiles\Department2\"
   Set folder = fs.GetFolder(dFolder)
   FolderSize_Swift = folder.Size
   Set fs = Nothing
   Set folder = Nothing
End Function

dFolder

Views 366 Downloads 111

VBA-Excel File System
ANmarAmdeen
747
Attachments
Revisions

v1.0