Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
May 4, 2002

GetDirectorySize - Calculate the size of a directory


' Returns the size of the specified directory
' - Note: requires Imports System.IO
' - Usage: Dim DirSize As Long = GetDirectorySize("D:\Projects")

Function GetDirectorySize(ByVal DirPath As String) As Long
  Dim DirSize As Long
  Dim Dir As DirectoryInfo = New DirectoryInfo(DirPath)

  ' add the size of each file
  Dim ChildFile As FileInfo
  For Each ChildFile In Dir.GetFiles()
    DirSize += ChildFile.Length
  Next

  ' add the size of each sub-directory, that is retrieved by recursively
  ' calling this same routine
  Dim SubDir As DirectoryInfo
  For Each SubDir In Dir.GetDirectories()
    DirSize += GetDirectorySize(SubDir.FullName)
  Next

  Return DirSize
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap