VBA дозволяє перевірити наявність файлу або папки за допомогою Реж функція.
За допомогою команди Dir перевірити наявність файлу
Як ми згадували у вступі, Реж Функція дозволяє нам перевірити, чи існує вибраний файл на комп’ютері. Ось код:
123456789101112131415 | Sub CheckFileExists ()Dim strFileName As StringDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Якщо strFileExists = "" ТодіMsgBox "Вибраний файл не існує"ІнакшеMsgBox "Вибраний файл існує"Закінчити ЯкщоEnd Sub |
Спочатку ми призначили змінному шлях до файлу strFileName. Тоді ми використовуємо Реж функція для отримання імені файлу у змінній strFileExists. Якщо файл існує в каталозі, його ім'я буде присвоєно рядковій змінній strFileExists. Якщо його немає, то strFileExists залишиться порожнім. Нарешті, з'являється вікно з повідомленням, яке повідомляє нам, чи існує файл чи ні.
За допомогою команди Dir перевірити наявність папки
Подібно до перевірки наявності файлу, ви можете перевірити, чи існує папка. Вам просто потрібно додати один аргумент до Реж команду. Давайте розглянемо код:
123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA статті \ Test Folder \"strFolderExists = Dir (strFolderName, vbDirectory)Якщо strFolderExists = "" ТодіMsgBox "Вибрана папка не існує"ІнакшеMsgBox "Вибрана папка існує"Закінчити ЯкщоEnd Sub |
Спочатку ми призначили змінній шлях до папки strFolderName. Тоді ми використовуємо Реж функція для отримання імені файлу у змінній strFileExists. Для того, щоб перевірити папку, нам потрібно додати до функції другий аргумент - vbDirecotry. Якщо папка існує в каталозі, її змінній буде призначено її ім’я strFolderExists. Якщо ні strFolderExists залишиться порожнім.