Метод CopyFolder
fso.CopyFolder Source, Destination[, OverwriteFiles]
Выполняет копирование папок вместе с их содержимым, в том числе и с применением шаблонов
CopyFolder содержит следующие именованные аргументы:
Элемент Описание
fso Обязательный. Всегда ссылка на созданный объект FileSystemObject
Source Обязательный аргумент типа String. Путь и имя копируемой папки. Аргумент может содержать символы шаблонов(* и !) только в последнем компоненте параметра
Destination Обязательный аргумент типа String, указывающий место, куда будут копироваться папки. Использование шаблонов не разрешается
OverwriteFiles Необязательный параметр типа Boolean, указывающее на возможность записи на место существующих файлов. В том случае, когда значение равно True, такая запись разрешается; в противном случае значение равно False. Значением по умолчанию является True. Обратите внимание на то, что если место назначения, указанное элементом Destination, имеет установленный атрибут «только для чтения», метод CopyFolder не сможет произвести копирование, независимо от значения параметра OverwriteFiles
Пример
' Копируем все папки
Dim fso As FileSystemObject
Set fso = New Scripting.FileSystemObject
fso.CopyFolder "c:\мои документы\letters\*", "c:\tempfolder\"
|