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