Directory size with DirectoryInfo

[bigtimmin]

How does one retrieve the directory size (in bytes) using DirectoryInfo, without looping through the directory and retrieving each file size with FileInfo? I'm currently using the FileSystemObject, example:

Dim oFS As Object = CreateObject("Scripting.FileSystemObject")
Dim oDir As Object = oFS.GetFolder("MyFolder") 
Dim nBytes as Long = CLng([b]oDir.Size[/b]) [COLOR=green]'total folder size[/color]

Maybe this world is another planet’s Hell.
Aldous Huxley

 

[ca8msm]

I don't know if you can - I've used a recursive function in the past but this obviously has to loop through all the files and sub-directories e.g.:

Public Shared Function Size(ByVal dirInfo As System.IO.DirectoryInfo) As Long
  Dim total As Long =  0 
 
  Dim file As System.IO.FileInfo
  For Each file In dirInfo.GetFiles()
    total += file.Length
  Next
 
  Dim dir As System.IO.DirectoryInfo
  For Each dir In dirInfo.GetDirectories()
    total += Size(dir)
  Next
 
  Return total
End Function

____________________________________________________________

Need help finding an answer?

Try the Search Facility or read FAQ222-2244 on how to get better results.