При разработке прикладных программ программист может использовать встроенные функции и операторы MS Visual Bаsic для работы с файловой системой.
Функция DIR.
Выполняет поиск файла. При отыскании файлов по маске вызывается два раз первый с указанием маски. Второй раз без параметров.
Пример.
Buf=””
MyPath = "c:*.txt" ' Маска поиска
MyName = Dir(MyPath) ' Поиск первого вхождения
Do While MyName <> "" ' Отыскание остальных файлов
Buf=Buf + MyName+ Chr(10)+Chr(13)
MyName = Dir
Loop
Оператор Kill “path” — уничтожение файла на диске
Работа с атрибутами файла
GetAttr(“pathname”) — получение атрибутов файла. Функция возвращает код атрибутов. Для извлечения атрибутов используются их маски:
| vbNormal (0) | Нет атрибутов |
| vbReadOnly (1) | Только чтение |
| vbHidden (2) | Скрытый |
| vbSystem (4) | Системный |
| vbDirectory (16) | Каталог |
| vbArchive (32) | Архивный |
Пример. Поиск атрибута:
Result = GetAttr(FName) And vbArchive
Если результат равен нулю — атрибута нет.
Установка атрибутов:
SetAttr “pathname”, attributes
Где pathname – полное имя физического файла на диске.
Переименование файлов. Оператор
Name “old” As “new”
Пример. Переименование.
OldName = "OLDFILE": NewName = "NEWFILE"
Name OldName As NewName
Оператор можно использовать для перемещения файла.
Пример.
OldName = "C:MYDIROLDFILE": NewName = "C:YOURDIRNEWFILE"
Name OldName As NewName
Получение текущего каталога.
Функция CurDir “pattern”
' Текущий каталог диска C — "C:WINDOWSSYSTEM".
' Текущий каталог D — "D:EXCEL".
' C — текущий каталог
Dim MyPath
MyPath = CurDir ' "C:WINDOWSSYSTEM".
MyPath = CurDir("C") ' "C:WINDOWSSYSTEM".
MyPath = CurDir("D") ' "D:EXCEL".
Смена каталога:
ChDir “path”
Пример:
ChDir "D:TMP"
Создание каталога:
MkDir “path”
Уничтожение каталога:
RmDir “path”
Каталог должен быть пустым.