Свойство Attributes

Статья
04/07/2023

Устанавливает или возвращает атрибуты файлов или папок. Доступ для чтения/записи или только для чтения в зависимости от атрибута.

Синтаксис

object. Атрибуты [= newattributes ]

Свойство Attributes состоит из следующих частей:

Part	Описание
object	Обязательно. Всегда имя объекта File или Folder .
newattributes	Необязательный параметр. Если аргумент newattributes предоставляется, он является новым значением атрибутов заданного объекта.

Settings

Аргумент newattributes может иметь любое из следующих значений или любое логическое сочетание следующих значений.

Константа	Значение	Описание
Normal	0	Обычный файл. Атрибуты не заданы.
ReadOnly	1	Файл только для чтения. Атрибут "чтение/запись".
Hidden	2	Скрытый файл. Атрибут "чтение/запись".
Система	4	Системный файл. Атрибут "чтение/запись".
Volume	8	Метка тома дискового устройства. Атрибут "только чтение".
Directory	16	Папка или каталог. Атрибут "только чтение".
Archive	32	Файл изменен после последнего резервного копирования. Атрибут "чтение/запись".
Alias	1024	Ссылка или ярлык. Атрибут "только чтение".
Сжатого	2048	Сжатый файл. Атрибут "только чтение".

Замечания

В следующем коде показано использование свойства Attributes с файлом.

Sub SetClearArchiveBit(filespec)
    Dim fs, f, r
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
    If f.attributes and 32 Then
        r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
            f.attributes = f.attributes - 32
            MsgBox "Archive bit is cleared."
        Else
            MsgBox "Archive bit remains set."
        End If
    Else
        r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
f.attributes = f.attributes + 32
            MsgBox "Archive bit is set."
        Else
            MsgBox "Archive bit remains clear."
        End If
    End If
End Sub

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Share via