Public Function Foldersize(ByVal dPath As String, ByVal includeSubFolders As _
  Boolean) As Double
   Try
       Dim size As Long = 0
       Dim diBase As New DirectoryInfo(dPath)
       Dim files() As FileInfo
       If includeSubFolders Then
           files = diBase.GetFiles("*", SearchOption.AllDirectories)
       Else
           files = diBase.GetFiles("*", SearchOption.TopDirectoryOnly)
       End If
       Dim ie As IEnumerator = files.GetEnumerator
       While ie.MoveNext
           size += DirectCast(ie.Current, FileInfo).Length
       End While
 
       Return Format(size / 1048576, "0.000")
   Catch ex As Exception
            Return -1
   End Try
End Function