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

Рассмотрим наиболее часто используемые функции для работы с файлами и папками.

Функция	Описание и пример
ChDir	Изменяет текущую папку. Синтаксис: ChDir path, где path – имя новой текущей папки ChDir "C:\St" Переход в папку C:\St ChDir ".." Переход в родительскую папку, т.е. в папку на 1 уровень вверх
CurDir	Возвращает текущую папку
Kill	Удаляет файл. Синтаксис: Kill pathname, где pathname – имя удаляемого файла Kill "C:\St\Случайные числа.xls"
MkDir	Создает папку. Синтаксис: MkDir path, где path – имя новой папки MkDir "C:\St" Если папка C:\St существует, то при выполнении этой команды возникнет ошибка:
RmDir	Удаляет папку. Синтаксис: RmDir path, где path – имя удаляемой папки RmDir "C:\St" Если папка C:\St не существует, то при выполнении этой команды возникнет ошибка:

Следующую функцию – функцию Dir – рассмотрим подробнее. В зависимости от указанных атрибутов эта функция возвращает файл или папку и обычно используется для проверки их существования.

Синтаксис:

Dir[(pathname[, attributes])]

pathname – определяет полное имя файла или папки;

attributes – параметры, которые могут принимать следующие значения:

Константа	Значение	Описание
vbNormal	0	Обычный файл
vbReadOnly	1	Файл только для чтения
vbHidden	2	Скрытый файл
vbSystem	4	Системный файл
vbVolume	8	Метка тома; если этот параметр указан, то все остальные атрибуты игнорируются
vbDirectory	16	Каталог или папка

Примеры:

1. Следующий код проверяет наличие файла и выдает соответствующее сообщение:

Dim Файл As String

Файл = Dir("C:\St\Случайные числа.xls")

If Файл <> "" Then _

MsgBox "Файл Случайные числа.xls существует!" _

Else MsgBox "Файл Случайные числа.xls не найден!"

ЗАМЕЧАНИЕ. В этом примере функция Dir возвращает значение, равное "Случайные числа.xls", если файл существует, и пусто в противном случае.

2. Следующий код выводит в таблицу список файлов из папки C:\St:

Path = "C:\St" 'определяет папку

Файл = Dir(Path) 'возвращает имя первого файла

i = 1

While Файл <> ""

Cells(i,1).Value = Файл

Файл = Dir

i = i + 1

Wend

ОБРАТИТЕ ВНИМАНИЕ: повторное использование функции Dir без аргументов возвращает имя следующего файла из папки, адрес которой был задан до этого (Dir(Path)).

3. Если первую строку предыдущего кода записать в виде

Path = "C:\St\*.xls" ,

то получим список Excel-файлов.

4. Следующий код проверяет наличие папки и выдает соответствующее сообщение:

Path = "C:\St"

Папка = Dir(Path, vbDirectory)

'возвращает имя папки ("St", если она _ существует, и пусто – в противном случае)

If Папка <> "" Then MsgBox "Папка существует!" _

Else MsgBox "Папка не существует!"