ファイルサイズの取得 ： Access
Access VBAでFileLenを使うとサイズをバイト数で取得できます。
指定したファイルが存在しない場合はエラーになります。フォルダを指定した場合サイズは0になります。
■ Access実行フォーム
ボタンをクリックすると、テキストボックスにファイル名とサイズが表示されます。
ファイルがない場合は実行時エラー「ファイルが見つかりません」と表示されます。
■ Access VBA 実行コード
Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Me!テキスト1 = "image1.jpg： " & FileLen("c:\image1.jpg") & "Byte" & vbCrLf
Me!テキスト1 = Me!テキスト1 & "windows： " & FileLen("c:\windows") & "Byte" & vbCrLf
Me!テキスト1 = Me!テキスト1 & "image1.jpg： " & FileLen("c:\image2.jpg") & "Byte" & vbCrLf
End Sub
Option Explicit
Private Sub コマンド0_Click()
Me!テキスト1 = "image1.jpg： " & FileLen("c:\image1.jpg") & "Byte" & vbCrLf
Me!テキスト1 = Me!テキスト1 & "windows： " & FileLen("c:\windows") & "Byte" & vbCrLf
Me!テキスト1 = Me!テキスト1 & "image1.jpg： " & FileLen("c:\image2.jpg") & "Byte" & vbCrLf
End Sub
Home 
Tips メニューCopyright(C) FeedSoft