IFileSystemInfo.Attributes

Синтаксис

Attributes: FileAttributes;

Описание

Свойство Attributes определяет атрибуты файла.

Пример

Sub Main;

Var

FileSInfo: IFileSystemInfo;

s: String;

Begin

FileSInfo:=New FileInfo.Attach("c:\1.txt");

If FileSInfo.Exists Then

FileSInfo.Attributes:=FileAttributes.Hidden Or FileAttributes.ReadOnly;

End If;

Dispose FileSInfo;

End Sub Main;

После выполнения примера для файла «1.txt», если он существует, будут установлены атрибуты «Скрытый» и «Только чтение».

См.также:

IFileSystemInfo