Функция SetFileAttributes

Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Платформа: Win 95/98, Win NT

SetFileAttributes меняет атрибуты файла или папки. Вы можете установить четыре вида:архивный,только для чтения,скрытый и системный.В случае ошибки функция возвращает 0 ,в успешном случае 1.

lpFileName
Полное имя файла или папки.
dwFileAttributes
Один или несколько флагов,определяющих атрибуты файла:
FILE_ATTRIBUTE_ARCHIVE = &H20
Архивный файл.
FILE_ATTRIBUTE_HIDDEN = &H2
Скрытый файл или папка.Обычно его не видно пользователю.
FILE_ATTRIBUTE_NORMAL = &H80
Файл не имеет атрибутов(нельзя комбинировать с другими флагами).
FILE_ATTRIBUTE_READONLY = &H1
Файл только для чтения.
FILE_ATTRIBUTE_SYSTEM = &H4
Системный файл.Является частью операционной системы.

Пример:

' устанавливаем атрибуты файла C:\MyProgram\secret.dat в скрытый,только для чтения,архивный
Dim fileattrs As Long  ' атрибуты
Dim retval As Long  ' возвращаемое значение

fileattrs = FILE_ATTRIBUTE_ARCHIVE Or FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_READONLY
retval = SetFileAttributes("C:\MyProgram\secret.dat", fileattrs)  ' Устанавливаем атрибуты

Схожие функции: GetFileAttributes
Категория: Файлы
В начало.