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