GetDirectorySize – Calculate the size of a directory

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 DirSizeEnd Function

See also  How to Avoid Money Transfer Scams  

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist