### Get Folder Size

Get the size of a folder, without subdirs.
'Get the folder size in bytes.
'Returns -1 if the folder does not exist
`Sub GetFolderSize(folder As String) As Long
If Not(File.IsDirectory(folder, "")) Then
Return -1
End If
Dim total As Long
For Each filename As String In File.ListFiles(folder)
If File.IsDirectory(folder, filename) = False Then
total = total + File.Size(folder, filename)
End If
Next
Return total
End Sub`

Changed: , Category: Files, File: T6C193M1378.htm, ID: 1378