Лекция: Работа с файловой системой. MS Visual Basic ver 6.0
При разработке прикладных программ программист может использовать встроенные функции и операторы 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:\MYDIR\OLDFILE»: NewName = «C:\YOURDIR\NEWFILE»
Name OldName As NewName
Получение текущего каталога.
Функция CurDir “pattern”
' Текущий каталог диска C — «C:\WINDOWS\SYSTEM».
' Текущий каталог D — «D:\EXCEL».
' C — текущий каталог
Dim MyPath
MyPath = CurDir ' «C:\WINDOWS\SYSTEM».
MyPath = CurDir(«C») ' «C:\WINDOWS\SYSTEM».
MyPath = CurDir(«D») ' «D:\EXCEL».
Смена каталога:
ChDir “path”
Пример:
ChDir «D:\TMP»
Создание каталога:
MkDir “path”
Уничтожение каталога:
RmDir “path”
Каталог должен быть пустым.