2014-02-09
422
Коль скоро мы заговорили о рабочих книгах – файлах Excel, рассмотрим наиболее часто используемые функции для работы с файлами и папками.
| Функция | Описание и пример | ||||
| ChDir | Изменяет текущую папку. Синтаксис:
ChDir path, где path – имя новой текущей папки
| ||||
| 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 | обычный файл | |
| q vbReadOnly | файл только для чтения | |
| q vbHidden | скрытый файл | |
| q vbSystem | системный файл | |
| q vbVolume | метка тома. Если этот параметр указан, то все остальные атрибуты игнорируются. | |
| q vbDirectory | каталог или папка |
Примеры:
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
