ファイルサイズの取得 : Access

Access VBAでFileLenを使うとサイズをバイト数で取得できます。

指定したファイルが存在しない場合はエラーになります。
フォルダを指定した場合サイズは0になります。

スポンサーリンク




BackHome BackTipsへ Backメニューへ

■ 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

スポンサーリンク




BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft