Public Function Foldersize(ByVal dPath As String, ByVal includeSubFolders As _
    Boolean) As String
    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
      For Each fi As FileInfo In files
        size += fi.Length
      Next
      Return String.Format("{0:0.000} MB", size / 1048576)
    Catch ex As Exception
      Return "-"
    End Try
  End Function

  Public Function Foldersize(ByVal dPath As String, ByVal includeSubFolders As _
    Boolean) As String
    Return String.Format("{0:0.000} MB", (Aggregate f In IO.Directory.GetFiles( _
    dPath, "*", If(includeSubFolders, 1, 0)) Into Sum(New IO.FileInfo( _
    f).Length)) / 1048576)
  End Function