' 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


The Digital Panopticon: Is Big Brother Always Watching Us Online?
In the age of digital transformation, the internet has become a ubiquitous part of our lives. From socializing, shopping, and learning to more sensitive activities such as banking and healthcare,