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