Работа с файловой системой. 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”

Каталог должен быть пустым.