Преглед садржаја
Следећи код ће потврдити да ли је назив датотеке важећи. Ово је корисно ако ваш код захтева назив датотеке који је унео корисник. Пре него што наставите, провериће да ли је име датотеке исправно и евентуално генерисати грешку.
Потврдите назив датотеке
Ова функција тестира да ли је променљива „Име датотеке“ исправно име датотеке:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Функција ВалидатеФилеНаме (БиВал ФилеНаме Ас Стринг) Као БоолеанАпплицатион.СцреенУпдатинг = НетачноДим вб Као радна свеска„Не проверавајте ништа у називу датотеке.Иф ФилеНаме = "" ОндаВалидатеФилеНаме = НетачноГоТо ЕкитПроцКрај Ако'Направи привремену датотекуГрешка ГоТо ИнвалидНаме:Сет вб = Воркбоокс.Аддвб.СавеАс Енвирон ("темп") & "\" & ФилеНаме & ".клск", 51На Грешка Настави даље„Затвори Екцел Екцел датотекувб.Цлосе Фалсе'Избриши Темп Екцел датотекуКилл Енвирон ("темп") & "\" & ФилеНаме & ".клск"'Име датотеке потврђено - изађите из функцијеВалидатеФилеНаме = ТачноГоТо ЕкитПроц'Ако се датотека не може створитиПогрешно име:На Грешка Настави даље„Затвори Екцел Екцел датотекувб.Цлосе Фалсе'Назив датотеке није потврђен - изађите из функцијеВалидатеФилеНаме = НетачноЕкитПроц:Апплицатион.СцреенУпдатинг = НетачноЗавршна функција |
Функцију можете позвати овако:
| 12345 | Суб тест_ВалидатеФилеНаме ()Дебуг.Принт ВалидатеФилеНаме ("фда?/")Енд Суб |
Ова процедура тестирања ће приказати ТРУЕ или ФАЛСЕ у непосредном прозору.
