Function ПолучитьАтрибут(ПутьФайла As String, ИмяФайла As String, ИмяАтребута As String) As String

Dim arrHeaders(41)
Dim Путь

Путь = ПутьФайла

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Путь)

For i = 0 To 40
arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next

For Each strFileName In objFolder.Items
For i = 0 To 40
If strFileName = ИмяФайла And arrHeaders(i) = ИмяАтребута Then
ПолучитьАтрибут = objFolder.GetDetailsOf(strFileName, i)
Exit Function
End If
Next
Next

End Function