ВБА вам омогућава да проверите да ли датотека или фасцикла постоје помоћу Дир функција.
Помоћу Дир команде проверите да ли датотека постоји
Као што смо споменули у уводу, Дир функција нам омогућава да проверимо да ли изабрана датотека постоји на рачунару. Ево кода:
| 123456789101112131415 | Суб ЦхецкФилеЕкистс ()Дим стрФилеНаме Ас СтрингДим стрФилеЕкистс Ас СтрингстрФилеНаме = "Ц: \ Корисници \ Никола \ Десктоп \ ВБА чланци \ Тест датотека постоји.клск"стрФилеЕкистс = Дир (стрФилеНаме)Ако стрФилеЕкистс = "" ОндаМсгБок "Изабрана датотека не постоји"ИначеМсгБок "Изабрана датотека постоји"Крај АкоЕнд Суб |
Прво смо променљивој доделили путању до датотеке стрФилеНаме. Затим користимо Дир функцију за унос имена датотеке у променљиву стрФилеЕкистс. Ако датотека постоји у директорију, њено име ће бити додељено променљивој стринга стрФилеЕкистс. Ако онда не постоји стрФилеЕкистс остаће празно. Коначно, појављује се оквир са поруком који нас обавештава да ли датотека постоји или не.
Употреба Дир команде за проверу да ли фасцикла постоји
Слично провери да ли датотека постоји, можете проверити и да ли постоји фасцикла. Потребно је само да додате један аргумент у Дир команда. Погледајмо код:
| 123456789101112131415 | Суб ЦхецкФолдерЕкистс ()Дим стрФолдерНаме Ас СтрингДим стрФолдерЕкистс Ас СтрингстрФолдерНаме = "Ц: \ Корисници \ Никола \ Десктоп \ ВБА чланци \ Тест фасцикла \"стрФолдерЕкистс = Дир (име стрФолдер, вбДирецтори)Ако стрФолдерЕкистс = "" ОндаМсгБок "Изабрана фасцикла не постоји"ИначеМсгБок "Изабрана фасцикла постоји"Крај АкоЕнд Суб |
Прво смо променљивој доделили путању до фасцикле стрФолдерНаме. Затим користимо Дир функцију за унос имена датотеке у променљиву стрФилеЕкистс. Да бисмо проверили фасциклу, морамо додати други аргумент у функцију - вбДирецотри. Ако фасцикла постоји у директоријуму, њено име ће бити додељено променљивој стрФолдерЕкистс. Ако не стрФолдерЕкистс остаће празно.
