Este breve tutorial demonstrará como usar o método CopyFolder do FileSystemObject.
Copiar pasta com VBA FileSystemObject
Esta lição usa o FileSystemObject. Para usá-lo, você precisará definir uma referência para a biblioteca de tempo de execução do script VB. Veja aqui para mais informações.
Copiar pastas é fácil com o Método CopyFolder do FileSystemObject.
| 12345678 | Sub FSOCopyFolder ()Dim FSO As New FileSystemObjectDefina FSO = CreateObject ("Scripting.FileSystemObject")FSO.CopyFolder "C: \ Src", "C: \ Dst \" 'A pasta Dst existeFSO.CopyFolder "C: \ Src", "C: \ DstNew" 'A pasta DstNew é criadaEnd 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 as pastas e subpastas correspondentes serão copiadas. Caso contrário, presume-se que o destino seja o nome de uma pasta a ser criada.
