как скопировать папку со всем содержимым в выбранный каталог

следует использовать FSO - это такая объектная модель FileSystemObject

Метод 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\"

Освоите FSO - жить станет легче...
http://www.citforum.ru/programming/digest/fsovb6.shtml