FolderSize_Swift

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

CodeFunctionName
What is this?

Public

Tested

Original 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 1,156

Downloads 423

CodeID
DB ID