Овај водич ће показати како се користе методе ГетФолдер и ГетФиле ФилеСистемОбјецт.
Добијте својства фасцикли и датотеке помоћу ВБА ФилеСистемОбјецт
Метода ГетФолдер враћа Фолдер објекат који одговара фасцикли на наведеној путањи и омогућава вам приступ њеним својствима. Метода ГетФиле ради исто са наведеном датотеком.
Подесите ВБА референцу
Прво, када користите ФилеСистемОбјецтс, можда ћете морати да поставите референцу на библиотеку времена извођења ВБ скрипте: отворите уређивач Висуал Басиц (АЛТ+Ф11), изаберите Алатке> Референце из падајућег менија и означите поље за потврду „Мицрософт Сцриптинг Рунтиме“.
ФилеСистемОбјецт
Друго, морате да креирате ФилеСистемОбјецт:
| 12 | Затамните ФСО као нови ФилеСистемОбјецтПостави ФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт") |
Сада имате приступ ГетФолдер -у и другим ФилеСистемОбјецт методама.
Употреба методе ГетФолдер
Након што наведете фасциклу којој желите да приступите
| 1 | Постави флд = ФСО.ГетФолдер ("Ц: \ Срц \") |
можете копирати:
| 1 | флд.Цопи "Ц: \ НевФолдер \" |
крени:
| 1 | флд.Мове "Ц: \ НевФолдер \" |
избриши то:
| 1 | флд.Делете |
или креирајте нову текстуалну датотеку у њој:
| 1 | флд.ЦреатеТектФиле „НевТектФиле.ткт“ |
Помоћу ове методе добијате приступ својствима фасцикле, као што су њени атрибути (флд.Аттрибутес), датум и време када је креирана (флд.ДатеЦреатед), последњи приступ (флд.ДатеЛастАццессед), последња измена (флд.ДатеЛастМодифиед ), слово његовог погона (флд.Дриве), његово име и кратки назив (флд.Наме, флд.СхортНаме), његова путања и кратка путања (флд.Патх, флд.СхортПатх), његова величина (флд.Величина), откуцајте (флд.Типе), његову родитељску фасциклу (флд.ПарентФолдер), проверите да ли се ради о коренској фасцикли (флд.ИсРоотФолдер) или можете проћи кроз њу, пребројати итд. њене датотеке (флд.Филес) или подмапе (флд. Подмапе).
Спајање свега у процедуру изгледало би овако:
| 123456789101112131415161718192021222324 | Суб ФСОГетФолдер ()Затамните ФСО као нови ФилеСистемОбјецтПостави ФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Постави флд = ФСО.ГетФолдер ("Ц: \ Срц \")Дебуг.Принт флд.ДатеЦреатедДебуг.Принт флд.ДривеДебуг.Принт флд.НамеДебуг.Принт флд.ПарентФолдерДебуг.Принт флд.ПатхДебуг.Принт флд.СхортПатхДебуг.Принт флд.СизеДебуг.Принт флд.Филес.ЦоунтДебуг.Принт флд.ТипеЗа сваки преклоп У флд.СубФолдерсДебуг.Принт фолд.НамеСледећи преклопЗа сваки фил Ин флд.ФилесДебуг.Принт фил.НамеСледећа филЕнд Суб |
Имајте на уму да ћете притиснути Цтрл+Г да бисте видели резултат наредбе Дебуг.Принт у непосредном прозору ВБА.
Метода ГетПарентФолдерНаме
Алтернативно горе наведеном начину, можете приступити имену родитељске фасцикле фолдера помоћу овог кода:
| 1234 | Затамните ФСО као нови ФилеСистемОбјецтПостави ФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")ПарентФолд = ФСО.ГетПарентФолдерНаме ("Ц: \ ПарентТест \ Тест \") |
ПарентФолд ће у овом случају бити „Ц: \ ПарентТест \“.
Имајте на уму да овај метод неће решити путању, нити проверава постојање наведене путање.
Метода ГетСпециалФолдер
Помоћу методе ГетСпециалФолдер, прослеђујући 0, 1 или 2 као аргумент, можете добити путању Виндовс фасцикле (са датотекама које је инсталирао оперативни систем Виндовс), путању системске фасцикле (са библиотекама, фонтовима и управљачким програмима уређаја) и привремене путања до фасцикле (фасцикла која се користи за чување привремених датотека).
| 1234567 | Суб ФСОГетСпециалФолдер ()Затамните ФСО као нови ФилеСистемОбјецтПостави ФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Дебуг.Принт ФСО.ГетСпециалФолдер (0) „Резултат може бити: Ц: \ Виндовс \ Систем32Енд Суб |
Метода ГетФиле
Метод ГетФиле можете користити на веома сличан начин као и метод ГетФолдер. Након што наведете датотеку којој желите да приступите
| 1 | Постави фил = ФСО.ГетФиле ("Ц: \ Срц \ Тест.клск") |
можете копирати:
| 1 | фил.Цопи "Ц: \ Дст \" |
крени:
| 1 | фил.Мове "Ц: \ Дст \" |
избриши то:
| 1 | фил.Делете |
или га отворите као објект ТектСтреам:
| 1 | фил.ОпенАсТектСтреам |
Својствима датотеке, као што су њени атрибути, датум и време када је креирана, последњи приступ или последња измена, слово, назив и кратак назив диска, путања и кратка путања, величина, врста и њена надређена фасцикла могу се приступити на исти начин како је описано у методи ГетФолдер.
