Функция SetFileAttributes
Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
SetFileAttributes меняет атрибуты файла или папки. Вы можете установить четыре вида:архивный, только для чтения, скрытый и системный
- lpFileName
- Полное имя файла или папки
- dwFileAttributes
- Один или несколько флагов, определяющих атрибуты файла:
- FILE_ATTRIBUTE_ARCHIVE = &H20
- Архивный файл
- FILE_ATTRIBUTE_HIDDEN = &H2
- Скрытый файл или папка. Обычно его не видно пользователю
- FILE_ATTRIBUTE_NORMAL = &H80
- Файл не имеет атрибутов(нельзя комбинировать с другими флагами)
- FILE_ATTRIBUTE_READONLY = &H1
- Файл только для чтения
- FILE_ATTRIBUTE_SYSTEM = &H4
- Системный файл. Является частью операционной системы
Пример
' Устанавливаем атрибуты файла C:\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:\secret.dat", fileattrs)
Смотри также
GetFileAttributes
Категория
Файлы