Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Справочники

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35696
Главная » Справочники » Функции VBA » Функции работы с файлами

GetAttr

GetAttr

Функция GetAttr

GetAttr(Pathname)

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

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

Возвращает значение типа Integer, содержащее атрибуты файла, каталога или папки

Параметры
Pathname
Обязательный параметр-строковое выражение,указывающее имя файла.Pathname может содержать имя каталога или папки и диска,включая сетевые.Он может также задаваться как UNC-имя.Если диск и папка не указана,то система считает,что файл находится в рабочем каталоге на рабочем диске машины.При этом имя файла задается как "C:Test.txt(без обратной косой черты)

Значение, возвращаемое функцией GetAttr, являются суммой значений следующих атрибутов:

Константа Значение Описание
vbNormal 0 Обычный
vbReadOnly 1 Доступен только для чтения
vbHidden 2 Скрытый
vbSystem 4 Системный файл
vbDirectory 16 Каталог или папка
vbArchive 32 Файл был изменен после последнего резервирования

Примечание:При отсутствии файла генерируется ошибка времени исполнения File not found

Пример

' В данном примере функция GetAttr
' используется для определения атрибутов файла,
' а также каталога или папки
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
Категория
Функции работы с файлами

Счетчики: 3212 | Добавил: Serge_007
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!