Sub ShowFileAttr(fName As String) 'процедура
'выводит сообщение с атрибутами файла, имя которого передано в fName

Dim fAttr As Integer'каждый атрибут файла представлен уникальным числовым кодом
Dim mStr As String

fAttr = GetAttr(fName)
mStr = UCase(fName)

mStr = mStr & " - Имеет следующие атрибуты: " & vbCr

    If (fAttr And vbReadOnly) Then _
        mStr = mStr & "Только чтение" & vbCr
    If (fAttr And vbHidden) Then _
        mStr = mStr & "Скрытый" & vbCr
    If (fAttr And vbSystem) Then _
        mStr = mStr & "Системный" & vbCr
    If (fAttr And vbVolume) Then _
        mStr = mStr & "Метка тома" & vbCr
    If (fAttr And vbDirectory) Then _
        mStr = mStr & "Директория" & vbCr
    If (fAttr And vbArchive) Then _
        mStr = mStr & "Архивный" & vbCr
    MsgBox mStr
End Sub

Sub ListFileAttr() 'проверка процедуры
Dim strPath As String

ShowFileAttr fName:="c:\io.sys"
ShowFileAttr fName:="c:\msdos.sys"

strPath = Application.StartupPath
ShowFileAttr fName:=strPath

strPath = strPath & "\personal.xls"
ShowFileAttr fName:=strPath
End Sub