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

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

◆ ファイルとフォルダのサイズ取得方法 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

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。