Бөлісу құралы:

Свойство Attributes

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

Синтаксис

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

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

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

Параметры

Аргумент 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 и обратная связь.

  • Last updated on