FileLenを使うとサイズをバイト数で取得できます。
指定したファイルが存在しない場合はエラーになります。
フォルダを指定した場合サイズは0になります。
| スポンサードリンク |
ボタンをクリックすると、テキストボックスにファイル名とサイズが表示されます。 ファイルがない場合は実行時エラー「ファイルが見つかりません」と表示されます。  |
|
|
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 |