Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Renomear Arquivo

Avatar do usuário
cy_rangel
Colaborador
Colaborador
Mensagens: 88
Registrado em: Sex Set 04, 2015 8:32 pm

Renomear Arquivo

Mensagem por cy_rangel »

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.

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 Sub

Desde já agradeço.
Att
Cy Rangel.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder