MyTetra Share
Делитесь знаниями!
Как определить, существует ли книга в папке
Время создания: 12.10.2019 20:23
Раздел: !Закладки - VBA - Excel
Запись: xintrea/mytetra_db_adgaver_new/master/base/1570878680wpo6nysp78/text.html на raw.githubusercontent.com

Как определить, существует ли книга в папке

Как определить, существует ли книга в папке

Автор Дмитрий Якушев На чтение2 мин. Просмотров73

Что делает макрос: Данный макрос позволяет найти путь к определенному файлу, и проверить, существует ли книга в папке на компьютере.

Содержание

  1. Как макрос работает
  2. Код макроса
  3. Как работает этот код
  4. Как использовать

Как макрос работает

Данное действие называется функцией, а не процедурой 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

Как работает этот код

  1. Определяем переменную строку, содержащую имя файла, определённого из функции Dir. FName – это имя переменной строки.
  2. На шаге 2 устанавливаем переменную FName. Это выполняется посредством передачи переменной FPath к функции Dir. Переменная FPath проходит через выявленные функции (см. первую строку кода). Такой поиск позволяет четко прописать путь к файлу, ища его в качестве переменной.
  3. Если переменная FName не может быть выявлена, то это означает, что файла нет. Шаг 3 показывает либо ложный, либо истинный результат.
Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования