' 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 Future of iOS App Development: Trends to Watch
When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.