| ファイルサイズの取得 （２個） (SNo.022) １．FileInfo.Length プロパティを使ってのファイルサイズの取得 ２．FileLen 関数を使ってのファイルサイズの取得 |
|
| 使用コントロール | Button1 Button2 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) 調査するファイルを準備しておいて下さい。 |
|
１．FileInfo.Length プロパティを使ってのファイルサイズの取得
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ''ファイルサイズを取得する 'FileInfo.Length プロパティ '現在のファイルのサイズを取得します。 Dim fs As Long Dim fi As New System.IO.FileInfo("..\..\test.txt") fs = fi.Length Debug.WriteLine(fs) '結果 2586 End Sub |
|
| ２．FileLen 関数を使ってのファイルサイズの取得 Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click ''ファイルサイズを取得する 'FileLen 関数 'ファイルの長さをバイト単位で示す長整数型 (Long) の値を返します。 Dim fs As Long fs = Microsoft.VisualBasic.FileSystem.FileLen("..\..\test.txt") Debug.WriteLine(fs) '結果 2586 End Sub |
|