GetAttr関数 ： Access

Option Compare Database
Private Function SelectFolder_FileDialog() As String
    Dim dlgfolder As FileDialog
    'ダイアログのタイトル
    Application.FileDialog(msoFileDialogFolderPicker).Title = "フォルダを選択してください"
    '初期のフォルダ
    Application.FileDialog(msoFileDialogFolderPicker).InitialFileName = "c:\"
    If Application.FileDialog(msoFileDialogFolderPicker).show = -1 Then
        'ファイルが選択された
        SelectFolder_FileDialog = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
    Else
        SelectFolder_FileDialog = ""
    End If
End Function
Private Function SelectFile_FileDialog() As String
    Dim dlgfolder As FileDialog
    'ダイアログのタイトル
    Application.FileDialog(msoFileDialogFilePicker).Title = "ファイルを選択してください"
    '初期のフォルダ
    Application.FileDialog(msoFileDialogFilePicker).InitialFileName = "c:\"
    '一つのファイルのみ選択可能
    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 MyGetAttr(sf As String)
    Dim nRet As Integer
    Dim smsg As String
    nRet = GetAttr(sf)
        Select Case nRet
        Case vbNormal:  smsg = "通常ファイル"
        Case vbReadOnly: smsg = "読み取り専用ファイル"
        Case vbHidden: smsg = "隠しファイル"
        Case vbSystem: smsg = "システム ファイル。Macintosh では使用できません"
        Case vbDirectory: smsg = "フォルダ"
        Case vbArchive: smsg = "アーカイブ (属性最後にバックアップした後で、変更されたファイル)。Macintosh では使用できません"
        Case vbAlias: smsg = " エイリアス ファイル。Macintosh でのみ使用できます。"
    End Select
            MsgBox smsg
End Sub
'ファイル属性を取得
Private Sub コマンド0_Click()
    Dim sfina As String
        sfina = SelectFile_FileDialog
    If sfina <> "" Then
        MyGetAttr (sfina)
    End If
End Sub
'フォルダ属性を取得
Private Sub コマンド1_Click()
    Dim sdir As String
        sdir = SelectFolder_FileDialog
    If sdir <> "" Then
        MyGetAttr (sdir)
    End If
End Sub