Gets total of folder size in bytes.
With some tweaks, you can modify it to use in VB, VBA and ASP Classic
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
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