VBA – Copiar uma Pasta com CopyFolder (FSO)

Este breve tutorial demonstrará como usar o método CopyFolder do FileSystemObject.

Copiar Pasta com FileSystemObject do VBA

Esta lição usa o FileSystemObject. Para usá-lo, você precisará definir uma referência à biblioteca de tempo de execução de scripts VB. Consulte aqui para obter mais informações.

Copiar pastas é fácil com o método CopyFolder do FileSystemObject.

Sub FSOCopyFolder()
 Dim FSO As New FileSystemObject
 Set FSO = CreateObject("Scripting.FileSystemObject")

 FSO.CopyFolder "C:\Src", "C:\Dst\" 'A pasta Dst existe
 FSO.CopyFolder "C:\Src", "C:\DstNovo" 'A pasta DstNew é criada

End Sub

Se a origem contiver caracteres curinga ou o destino terminar com um separador de caminho (\), presume-se que o destino seja uma pasta existente na qual copiar as pastas e subpastas correspondentes. Caso contrário, presume-se que o destino seja o nome de uma pasta a ser criada.