FileLen : Access関数

Access FileLen関数はファイルのサイズを返します。

Homeへ　

Access関数メニューへ

■ 構文
FileLen(pathname)

pathname ：（必須）ファイル名を示す文字列を指定します。フォルダ名およびドライブ名を含めて指定できます。

■ 戻り値
ファイルサイズを長整数型のバイト数で返します。

■ Access実行画面

「ファイルサイズを取得」ボタンをクリックすると、ファイル選択ダイアログが開きます。
調べたいファイルを選択してください。
ファイルサイズ取得ソフト

■ Access VBA 実行コード

Option Compare Database
'ファイル選択ダイアログを開く
Private Function SelectFile_FileDialog() As String
    Dim dlgfolder As FileDialog
    Application.FileDialog(msoFileDialogFilePicker).Title = "ファイル選択"
    Application.FileDialog(msoFileDialogFilePicker).InitialFileName = "c:\windows\"
    Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
    If Application.FileDialog(msoFileDialogFilePicker).show = -1 Then
        '選択された場合
        SelectFile_FileDialog = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
    Else
        '選択されなかった場合
        SelectFile_FileDialog = ""
    End If
End Function
Private Sub コマンド0_Click()
    Dim sf As String
    Dim nSize As Long
    sf = SelectFile_FileDialog
    If sf <> "" Then
        '選択されたファイルのサイズを取得
        nSize = FileLen(sf)
        '結果表示
        Me!テキスト1 = "ファイル名：" & sf & " のファイルサイズは" & nSize & " バイトです"
    End If
End Sub

FileLen関数 ： Access

Access FileLen関数はファイルのサイズを返します。

■ Access実行画面

■ Access VBA 実行コード

FileLen関数： Access