Copiar e renomear pasta - VBA - Problema

[Marcus Casanova Nogueira]

Olá novamente, pessoal!

 

Estou tentando aprender a copiar e colar uma pasta (e todos os documentos que estiverem dentro dela)  através de VBA. No entanto, como vou copiar essa pasta no mesmo local da "original", gostaria de alterar o nome de acordo com os nomes em uma planilha. Para começar, estou usando o seguinte código:

 

Sub copiarpasta()Dim fso As New FileSystemObjectDim name As StringFor i = 1 To 5Cells(i, 1).Value = iname = Cells(i, 1).Valuefso.CopyFolder "C:\Users\marcus\Desktop\pastadesejada", "C:\Users\marcus\Desktop\ && name"Next iEnd Sub

No entanto, quando vou rodar a macro, recebo a seguinte mensagem: Erro de compilação : tipo definido pelo usuário não definido.

Já procurei em diversos sites e a única coisa que encontrei foi para ir em referências e adicionar algumas opções, mas nada até agora adiantou. Também tenho a dúvida de como fazer o nome contido na célula x virar parte do nome da pasta!

 

Obrigado!

Marcus

 

[Marcus Casanova Nogueira]

Já consegui resposta para a dúvida!! Na verdade parece estar tudo certo mesmo! tentei num arquivo novo e deu certo!