Скопируйте папку в другую папку в VBA

#vba #directory #copy #filesystemobject

#vba #каталог #путь #Копировать #FileSystemObject

Я хочу скопировать одну папку из множества папок и вставить ее в другое место. Как я могу добиться этого с помощью VBA?

Я использую приведенный ниже код, но он копирует все папки и сохраняет их. Я просто хочу скопировать одну папку.

 Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFolder Source:=FromPath1, Destination:=ToPath

FromPath1 имеет много папок. Скажите a, b, c, d, e. Я просто хочу скопировать a и сохранить его в ToPath.

Измените свой FromPath1 . Например, вместо «C:Temp » использовать «C:Tempa »