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 474 Downloads 150

VBA-Excel File System
ANmarAmdeen
763
Attachments
Revisions

v1.0