忍者ブログ

VB.NET-TIPS などプログラミングについて

VB.NETのTIPS(小技集)を中心に、その他のプログラミングについて少し役に立つ情報を発信します。いわゆる個人的な忘備録ですが、みなさんのお役に立てれば幸いです。

ファイルサイズ取得

指定されたファイルの存在を確認し、ファイルの FileInfo を取得し、FileInfoのファイル長を取得する関数です。

System.IO.FileInfo クラスについて

■コンストラクタ
Public Sub New ( fileName )
fileName:
    ファイルのドライブ名からの完全パス名または相対ファイル名。
■プロパティ抜粋
・Length       (Long)   :現在のファイルのサイズをバイト単位で取得します。
・Name         (String) :ファイルの名前を取得します。ファイル拡張子が含まれています。
・FullName     (String) :ファイルのフルパス名を取得します。
・DirectoryName(String) :ディレクトリの絶対パスを表す文字列。
・Extension    (String) :ファイルの拡張子部分を表す文字列を取得します。

ファイルサイズ取得

    ''' -----------------------------------------------------------------------
    ''' 
    ''' ファイルサイズ取得
    ''' 
    ''' <param name="astrFileName">ファイル名</param>
    ''' ファイルサイズ
    ''' -----------------------------------------------------------------------
    Function GetFileSize(ByVal astrFileName As String) As Long
        '戻り値初期化
        GetFileSize = 0
        Try
            '出力用ファイルが存在確認
            If System.IO.File.Exists(astrFileName) = False Then
                Exit Function
            End If

            'FileInfo の新しいインスタンスを生成する
            Dim fi As New System.IO.FileInfo(astrFileName)
            'ファイルのサイズを取得
            GetFileSize = fi.Length

        Catch ex As Exception
            'エラー処理が必要な場合は、ここに記述する
        End Try
    End Function
PR

コメント

コメントを書く