Функция GetFileAttributes

Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Функция GetFileAttributes позволяет определить атрибуты файла или папки.

Возвращаемое значение

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

FILE_ATTRIBUTE_ARCHIVE = &H20

Архивный файл

FILE_ATTRIBUTE_COMPRESSED = &H800

Сжатый файл

FILE_ATTRIBUTE_DIRECTORY = &H10

Имя папки

FILE_ATTRIBUTE_HIDDEN = &H2

Скрытый файл или папка.Обычно его не видно пользователю

FILE_ATTRIBUTE_NORMAL = &H80

Файл не имеет атрибутов(нельзя комбинировать с другими флагами)

FILE_ATTRIBUTE_READONLY = &H1

Файл только для чтения

FILE_ATTRIBUTE_SYSTEM = &H4

Системный файл. Является частью операционной системы

Параметры

lpFileName

Полное имя файла или папки

Пример

' Показываем атрибуты файла c:\autoexec.bat
Dim attribs As Long
' Узнаем атрибуты файла
attribs = GetFileAttributes("C:\autoexec.bat")
If (attribs And FILE_ATTRIBUTES_ARCHIVE) <> 0 Then Debug.Print "Архивный"
If (attribs And FILE_ATTRIBUTES_HIDDEN) <> 0 Then Debug.Print "Скрытый"
If (attribs And FILE_ATTRIBUTES_READONLY) <> 0 Then Debug.Print "Только для чтения"
' и так далее....

Смотри также

GetFileInformationByHandle, SetFileAttributes

Категория