Как определить, существует ли книга в папке
Как определить, существует ли книга в папке
Автор Дмитрий Якушев На чтение2 мин. Просмотров73
Что делает макрос: Данный макрос позволяет найти путь к определенному файлу, и проверить, существует ли книга в папке на компьютере.
Содержание
- Как макрос работает
- Код макроса
- Как работает этот код
- Как использовать
Как макрос работает
Данное действие называется функцией, а не процедурой sub. Данный макрос позволяет найти путь к любому файлу. В макросе, мы используем функцию Dir. Данная функция задает строку, представляющую собой имя файла, которого мы ищем. Эта функция может быть использована во многих отношениях, но в данный момент, мы используем его, чтобы найти путь к нужному нам файлу.
Код макроса
|
1
2
3
4
5
6
7
8
9 |
Function FileExists(FPath As String) As Boolean
'Шаг 1: Определить переменные.
Dim FName As String
'Шаг 2: Использовать функцию Dir, чтобы получить Имя файла
FName = Dir(FPath)
'Шаг 3: Если файл существует, возвращаем ИСТИНА, иначе ЛОЖЬ
If FName <> "" Then FileExists = True _
Else: FileExists = False
End Function |
Как работает этот код
- Определяем переменную строку, содержащую имя файла, определённого из функции Dir. FName – это имя переменной строки.
- На шаге 2 устанавливаем переменную FName. Это выполняется посредством передачи переменной FPath к функции Dir. Переменная FPath проходит через выявленные функции (см. первую строку кода). Такой поиск позволяет четко прописать путь к файлу, ища его в качестве переменной.
- Если переменная FName не может быть выявлена, то это означает, что файла нет. Шаг 3 показывает либо ложный, либо истинный результат.
