Visual Basic, .NET, ASP, VBA, VBScript
 
  Справочники  
  Справочник по Windows API Справочник по Visual Basic  
     
  Функция GetAttr  
 

Функция

GetAttr

Синтаксис

GetAttr(pathname)

Возвращает значение типа Integer, содержащее атрибуты файла, каталога или папки: vbNormal=0 обычный, vbReadOnly=1 доступен только для чтения, vbHidden=2 скрытый, vbSystem=4 системный файл, vbDirectory=16 каталог или папка, vbArchive=32 файл был изменен после последней операции резервирования данных.

Параметры

Наименование

Описание

PathName

Обязательный. Любое допустимое строковое выражение, указывающее имя файла. PathName может содержать имя каталога или папки и диска, включая сетевые.

Замечания

Чтобы определить, установлен ли определенный атрибут у файла, вы можете воспользоваться оператором And. Например, для определения установлен ли атрибут архивный для файла, воспользуйтесь таким кодом:
intResult = GetAttr(strFileName) And vbArchive

Если значение intResult не равно 0, то атрибут архивный установлен для данного файла.

Пример использования

Dim MyAttr
'предположим, что файл TESTFILE имеет атрибут "Скрытый"
MyAttr = GetAttr("TESTFILE") 'возвращает 2
'возвращает ненулевое значение, если файл TESTFILE
'имеет атрибуты "Сскрытый" и "Только для чтения"
Debug.Print MyAttr And vbHidden
'предположим, что файл TESTFILE
'имеет атрибуты "Скрытый" и "Только для чтения"
MyAttr = GetAttr("TESTFILE") 'возвращает 3
'возвращает ненулевое значение, если файл TESTFILE
'имеет атрибуты "Скрытый" и "Только для чтения"
Debug.Print MyAttr And (vbHidden + vbReadOnly)
'предположим, что MYDIR является каталогом или папкой
MyAttr = GetAttr("MYDIR") 'возвращает 16

Дополнительная информация

Категория: Работа с файловой системой

Еще функции: CurDir, Dir, EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Input, Loc, LOF, Seek

 
     
  VBNet online (всего: 51604)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам