ファイルとフォルダのサイズ取得方法 for VB.NET系

以下にファイルとフォルダのサイズ取得方法があったので、引用メモしておきます。

ファイルサイズ取得方法

Dim path As String = "c:\WINDOWS\隅田川.bmp"
Dim fi As FileInfo = New FileInfo(path)
Dim size As Long = fi.Length 

http://www.atmarkit.co.jp/fdotnet/dotnettips/357filesize/filesize.html

フォルダサイズ取得方法

Imports System
Imports System.IO

Public Class DirectorySize
  Shared Sub Main()
    Dim path As String = "c:\Inetpub"

    Dim di As DirectoryInfo = New DirectoryInfo(path)
    Dim dirSize As Long = GetDirectorySize(di)
    Console.WriteLine(dirSize)
  End Sub

  Shared Function GetDirectorySize(ByVal dirInfo As DirectoryInfo) As Long
    Dim size As Long = 0

    For Each fi As FileInfo In dirInfo.GetFiles
      size += fi.Length
    Next
    For Each di As DirectoryInfo In dirInfo.GetDirectories
      size += GetDirectorySize(di) ' 再帰呼び出し
    Next
    Return size
  End Function
End Class

http://www.atmarkit.co.jp/fdotnet/dotnettips/357filesize/filesize.html