Lang L: none (table-of-contents)
See lühike õpetus näitab, kuidas kasutada FileSystemObjecti meetodit CopyFolder.
Kopeerige kaust VBA FileSystemObject abil
See õppetund kasutab FileSystemObject. Selle kasutamiseks peate määrama viite VB skripti käitusajale. Lisateavet leiate siit.
Kaustade kopeerimine on selle abil lihtne CopyFolder meetod FileSystemObject.
12345678 | Alam FSOCopyFolder ()Dim FSO uue failisüsteemi objektinaMäära FSO = CreateObject ("Scripting.FileSystemObject")FSO.CopyFolder "C: \ Src", "C: \ Dst \" 'Dst kaust on olemasFSO.CopyFolder "C: \ Src", "C: \ DstNew" luuakse kaust DstNewEnd Sub |
Kui allikas sisaldab metamärke või sihtkoht lõpeb tee eraldajaga (\), eeldatakse, et sihtkoht on olemasolev kaust, kuhu sobivaid kaustu ja alamkaustu kopeerida. Vastasel juhul eeldatakse, et sihtkohaks on loodava kausta nimi.