Visual Basic copiar pasta e colar em outro diretório

[Flávia de Oliveira Batista]

Boa tarde, pessoal! Tenho uma demanda pra salvar arquivos, gostaria de saber se alguém pode me ajudar:

tenho uma pequena programação em VBA, que é utilizada para selecionar um arquivo no computador, copia-lo e salvar num local padrão. O problema é que com esse programa que eu tenho atualmente só consigo selecionar arquivo unitário. 

 

Gostaria de saber se posso modificar a programação de maneira que eu consiga copiar e colar pastas inteiras.

Esse código seleciona um arquivo para ser aberto:

Private Function AbrirArquivo() As String
'PROCEDIMENTO PARA ABRIR O ARQUIVO
Dim Filtro As String
Dim Titulo_da_Caixa As String
Dim Arquivo As Variant

Filtro = "todos os arquivos  (*.*),"
Titulo_da_Caixa = "Selecione o arquivo"

ChDrive ("C")
ChDir ("C:\")

With Application

Filename = .GetOpenFilename(Filtro, 3, Titulo_da_Caixa)
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)

End With

If Filename = False Then
MsgBox "Nenhum arquivo foi selecionado."
Exit Function
End If

AbrirArquivo = Filename
End Function

 

Private Sub CommandButton3_Click()

E esse é o botão que eu clico pra escolher o arquivo. ele simplesmente chama a função acima.

'BOTÃO ABRIR ARQUIVO
On Error Resume Next
txtCaminhoArquivo.Text = AbrirArquivo

 

 

 

[Ansi C]

@Flávia de Oliveira Batista Olá!

Se o Visual Basic já tem a rotina para esse procedimento, não seria mais sábio usá-la?

 

O Google encontrou este tutorial.

 Como copiar um diretório para outro diretório no Visual Basic

 

 

 

[Flávia de Oliveira Batista]

Em 06/10/2018 às 06:41, AnsiC disse:

@Flávia de Oliveira Batista Olá!

Se o Visual Basic já tem a rotina para esse procedimento, não seria mais sábio usá-la?

 

O Google encontrou este tutorial.

 Como copiar um diretório para outro diretório no Visual Basic

 

 

 

@AnsiC Eu não entendo muito de VBA.. não conheço a rotina que faz isso de forma mais direta, o código que coloquei na minha planilha, foi um que achei na internet e adaptei pra minha necessidade... por isso venho até o blog pedir ajuda ^^'

[Flávia de Oliveira Batista]

A programação que está posta atende (e muito bem) o que preciso fazer... Só queria saber se poderia ser mais rápida, copiando além de arquivos individuais uma pasta inteira, por exemplo...

 

 

Att.