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

Коль скоро мы заговорили о рабочих книгах – файлах Excel, рассмотрим наиболее часто используемые функции для работы с файлами и папками.

Функция	Описание и пример
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 – параметры, которые могут принимать следующие значения:

q vbNormal	0	обычный файл
q vbReadOnly	1	файл только для чтения
q vbHidden	2	скрытый файл
q vbSystem	4	системный файл
q vbVolume	8	метка тома. Если этот параметр указан, то все остальные атрибуты игнорируются.
q 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

Wend

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

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

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

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

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

Path = "C:\St"

Папка = Dir(Path, vbDirectory) ‘возвращает имя папки (“St”, _ если она существует, и пусто – в противном случае)

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

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

Функция MsgBox

В наших примерах мы не раз использовали для вывода сообщений функцию MsgBox. Рассмотрим её подробнее.

Функция MsgBox выводит на экран диалоговое окно с сообщением и кнопками, а затем возвращает значение типа Integer, указывающее, какую кнопку нажал пользователь.

Синтаксис

MsgBox (prompt [, buttons ] [, title ] [, helpfile, context ])

Синтаксис функции MsgBox содержит следующие именованные аргументы:

Аргумент	Описание
prompt	Сообщение в диалоговом окне. Может состоять из нескольких строк. Для разделения строк можно использовать символ возврата каретки (Chr(13)), перевода строки (Chr(10)) или комбинацию этих символов (Chr(13) & Chr(10))
buttons	Числовое выражение, представляющее собой СУММУ значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку и модальность окна сообщения. Значение по умолчанию равно 0 (отображается только кнопка ОК)
title	Заголовок диалогового окна
helpfile	Имя файла, содержащего справочные сведения. Если этот аргумент указан, необходимо указать также аргумент context
context	Номер соответствующего раздела справочной системы. Указывается вместе с аргументом helpfile

Допустимые значения аргумента buttons:

Константа	Значение	Описание
vbOKOnly	0	Отображается только кнопка OK.
vbOKCancel	1	Отображаются кнопки OK и Отмена (Cancel).
vbAbortRetryIgnore	2	Отображаются кнопки Прервать (Abort), По-вторить (Retry) и Пропустить (Ignore).
vbYesNoCancel	3	Отображаются кнопки Да (Yes), Нет (No) и Отмена (Cancel).
vbYesNo	4	Отображаются кнопки Да (Yes) и Нет (No).
vbRetryCancel	5	Отображаются кнопки Повторить (Retry) и Отмена (Cancel).
vbCritical	16	В окне сообщения отображается значок "Критическое сообщение".
vbQuestion	32	В окне сообщения отображается вопросительный знак.
vbExclamation	48	В окне сообщения отображается восклицательный знак.
vbInformation	64	В окне сообщения отображается знак "Информация".
vbDefaultButton1	0	Основной является первая кнопка.
vbDefaultButton2	256	Основной является вторая кнопка.
vbDefaultButton3	512	Основной является третья кнопка.
vbDefaultButton4	768	Основной является четвертая кнопка.
vbApplicationModal	0	Модальное окно на уровне приложения: чтобы продолжить работу с текущим приложением, необходимо ответить на данное сообщение.
VbSystemModal	4096	Модальное окно на уровне системы: все приложения будут недоступны до тех пор, пока пользователь не ответит на данное сообщение.

Первая группа значений (0–5) указывает число и тип кнопок, отображаемых в окне диалога.

Вторая группа (16, 32, 48, 64) задает тип используемого значка.

Третья (0, 256, 512) определяет кнопку, которая является основной, а четвертая (0, 4096) модальность окна сообщения. При определении значения аргумента buttons следует суммировать не более одного значения из каждой группы.