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

↑

▷ Содержание

⇐ ПредыдущаяСтр 4 из 27Следующая ⇒

Коль скоро мы заговорили о рабочих книгах – файлах 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 – параметры, которые могут принимать следующие значения:

Примеры:

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 содержит следующие именованные аргументы:

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

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

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

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

Познавательные статьи:



Техника прыжка в длину с разбега

Организация работы процедурного кабинета

Области применения синхронных машин

Оптимизация по Винеру и Калману