Ši trumpa pamoka parodys, kaip naudoti „FileSystemObject“ metodą „CopyFolder“.
Kopijuoti aplanką su VBA FileSystemObject
Šioje pamokoje naudojamas „FileSystemObject“. Norėdami jį naudoti, turėsite nustatyti nuorodą į VB scenarijaus vykdymo laiko biblioteką. Daugiau informacijos rasite čia.
Kopijuoti aplankus paprasta naudojant CopyFolder metodas „FileSystemObject“.
12345678 | Sub FSOCopyFolder ()Pritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")FSO.CopyFolder "C: \ Src", "C: \ Dst \" 'Dst aplankas yraFSO.CopyFolder "C: \ Src", "C: \ DstNew" sukurtas aplankas "DstNew"Pabaiga Sub |
Jei šaltinyje yra pakaitos simbolių arba paskirties vieta baigiama kelio skyrikliu (\), daroma prielaida, kad paskirties vieta yra esamas aplankas, į kurį reikia kopijuoti atitinkamus aplankus ir poaplankius. Priešingu atveju manoma, kad paskirties vieta yra aplanko, kurį reikia sukurti, pavadinimas.