フォルダのサイズを取得する

カテゴリ: VB.NET
投稿日時:2009/01/10 20:26:14
フォルダのサイズを取得するには、以下のようにします。

フォルダサイズを取得するメソッド


 ''' <summary>
''' フォルダサイズを取得する
''' </summary>
''' <param name="folder">対象フォルダ</param>
''' <returns>フォルダサイズ(バイト)</returns>
''' <remarks></remarks>
Private Shared Function GetFolderSize(ByVal folder As DirectoryInfo) As Long

    Dim size As Long = 0

    'フォルダ内のファイルのサイズをカウント
    For Each file As FileInfo In folder.GetFiles
        size += file.Length
    Next

    'サブフォルダで再帰処理
    For Each fld As DirectoryInfo In folder.GetDirectories
        size += GetFolderSize(fld)
    Next

    Return size
End Function
このエントリーをはてなブックマークに追加


スポンサード リンク