Функция GetFileAttributes

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

Платформа:

Win 95/98, Win NT

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
Категория Файлы
В начало.
Цены на широкоформатный принтер плоттер Epson
t-g.ru
Салоны красоты на уралмаше вакансии
Только актуальные вакансии. Большой выбор работодателей. С нами удобно
busy-people.ru