Skip to main content
2 de 7
adicionou 375 caracteres ao conteúdo

Como renomear uma pasta adicionado a data atual ao nome

Tenho uma pasta onde mantenho dados que precisam ser atualizados diariamente. Para não perder o histórico copio esta pasta e colo em outro lugar (até aqui está tudo automatizado). Mas, depois de copiar e colar a pasta, preciso renomeá-la com a data atual para não ter pastas com o mesmo nome.

Sub faz_backup() Dim newName As String

Data = DateSerial(Year(Now), Month(Now), Day(Now)) newName = "C:\Users\leandro.lazari\Desktop\Dados MegaWhat\Histórico\Dados"

Name "C:\Users\leandro.lazari\Desktop\Dados MegaWhat\Histórico\Dados" As newName & Data

End Sub

Fiz desta forma, mas aparece um erro dizendo que o arquivo não foi localizado. No entanto o endereço está correto