【VBA】GetAttr関数の使い方

GetAttr (ファイルまたはフォルダのパス)

Sub GetFileAttributes()
    Dim filePath As String
    Dim attrs As Integer
    
    ' ファイル/フォルダパスを指定
    filePath = "ファイルパス"
    
    ' ファイルの属性を取得
    attrs = GetAttr(filePath)
    
    ' 各属性を判定して処理
    If (attrs And vbNormal) <> 0 Then
        MsgBox "通常のファイルです"
    End If
    
    If (attrs And vbReadOnly) <> 0 Then
        MsgBox "読み取り専用のファイルです"
    End If
    
    If (attrs And vbHidden) <> 0 Then
        MsgBox "隠しファイルです"
    End If
    
    If (attrs And vbDirectory) <> 0 Then
        MsgBox "フォルダです"
    End If
    
    If (attrs And vbArchive) <> 0 Then
        MsgBox "アーカイブです(ファイルが前回のバックアップ以降に変更されている)"
    End If
    
    If (attrs And vbAlias) <> 0 Then
        MsgBox "エイリアスファイルです"
    End If
    
End Sub