Início
![[Resolvido]Copiar e renomear aquivo Empty](https://2img.net/i/empty.gif)
Connekta Informatica 6/12/2014, 12:23Bom dia
Como eu posso fazer para selecionar uma arquivo (.mdb) do local "/Backup/" e copiar para o local "/bd/" e renomear com um nome já determinado no codigo vba (Sistema_be.mdb).
Eu vi é esse código mais não sei com adaptar de acordo com a minha necessidade.
Copiar Arquivos e Renomea-los:
Como eu posso fazer para selecionar uma arquivo (.mdb) do local "/Backup/" e copiar para o local "/bd/" e renomear com um nome já determinado no codigo vba (Sistema_be.mdb).
Eu vi é esse código mais não sei com adaptar de acordo com a minha necessidade.
Copiar Arquivos e Renomea-los:
- Código:
Private Sub Copiando_Click()
On Error GoTo Err_Copiando_Click
Dim ArquivoDeOrigem, ArquivoDeDestino
ArquivoDeOrigem = "C:\MeuSistema\BD.mdb" ' Define o nome do arquivo de origem.
ArquivoDeDestino = "C:\MeuSistema\BD-" & Format(Date, "dddd") & ".mdb"
'Define o nome do arquivo dedestino.
FileCopy ArquivoDeOrigem, ArquivoDeDestino ' Copia a origem no destino.
MsgBox "Arquivo copiado com sucesso", vbInformation, "INFORMAÇÃO"
Exit_Copiando_Click:
Exit Sub
Err_Copiando_Click:
MsgBox "Ocorreu um erro na operação!", vbCritical, "ERRO"
Resume Exit_Copiando_Click
End Sub
