Renomear Arquivo
Enviado: Qua Mai 13, 2020 5:41 pm
Pessoal,
Gostaria de saber se é possível adaptar o código a seguir para que fosse renomeado o lote inteiro clicando no botão uma única vez, não sendo necessário clicar registro por registro para ele gerar cada arquivo individual renomeado.
Desde já agradeço.
Att
Cy Rangel.
Gostaria de saber se é possível adaptar o código a seguir para que fosse renomeado o lote inteiro clicando no botão uma única vez, não sendo necessário clicar registro por registro para ele gerar cada arquivo individual renomeado.
Código: Selecionar todos
Private Sub Btn_Rename_Click()
On Error GoTo Err_Copiando_Click
Dim ArquivoDeOrigem, ArquivoDeDestino
ArquivoDeOrigem = "C:\Renomear Docts\" & Me!Grupo & ".pdf" ' Define o nome do arquivo de origem.
ArquivoDeDestino = "C:\Renomear Docts\" & Me("Renomear Boleto") & ".pdf"
'Define o nome do arquivo dedestino.
FileCopy ArquivoDeOrigem, ArquivoDeDestino ' Copia a origem no destino.
MsgBox "Arquivo renomeado com sucesso", vbInformation, "INFORMAÇÃO"
Exit_Copiando_Click:
Exit Sub
Err_Copiando_Click:
MsgBox "Arquivo não localizado", vbCritical, "ERRO"
Resume Exit_Copiando_Click
End SubDesde já agradeço.
Att
Cy Rangel.