スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、取得したファイルの属性をメッセージボックスで表示します。
GetOpenFileNameメソッドで取得しているのでサンプルコードではフォルダなどは取得できません。

Sub Sample()

    Dim myFileName As String
    Dim intAttr As Integer
    Dim strAttr As String
    
    'ファイル名はGetOpenFileNameで取得しています
    myFileName = Application.GetOpenFilename
    If myFileName = "False" Then Exit Sub

    '95ではvbCrをChr(13)に替えて実行
    intAttr = GetAttr(myFileName)
    If intAttr >= 2 ^ 6 Then _
        strAttr = strAttr & vbCr & "エイリアスファイル"
    If intAttr Mod 2 ^ 6 >= 2 ^ 5 Then _
        strAttr = strAttr & vbCr & "アーカイヴ"
    If intAttr Mod 2 ^ 5 >= 2 ^ 4 Then _
        strAttr = strAttr & vbCr & "フォルダ"
    If intAttr Mod 2 ^ 4 >= 2 ^ 2 Then _
        strAttr = strAttr & vbCr & "システムファイル"
    If intAttr Mod 2 ^ 2 >= 2 ^ 1 Then _
        strAttr = strAttr & vbCr & "隠しファイル"
    If intAttr Mod 2 ^ 1 >= 2 ^ 0 Then _
        strAttr = strAttr & vbCr & "読取専用ファイル"
    If intAttr = 0 Then _
        strAttr = strAttr & vbCr & "通常ファイル"
    strAttr = Mid(strAttr, 2)

    MsgBox strAttr

End Sub