1

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. 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

CopiarArq "C:\Users\leandro.lazari\Desktop\Dados MegaWhat\Dados", 
"C:\Users\leandro.lazari\Desktop\Dados MegaWhat\Histórico"

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. O código copia e cola a pasta, mas aparece um erro dizendo que o arquivo não foi localizado. No entanto, o endereço está correto

1 Resposta 1

1

Você está com erro porque a String Data retorna o valor: 23/03/2018. Quando você tenta alterar o nome de uma pasta manualmente e tenta inserir /, a seguinte mensagem aparece:

mensagem de erro renomear arquivos caracteres especiais

Portanto você deve substituir as / por algum outro caracter, como por exemplo -

Utilizando a função replace, o seguinte código pode ser usado: DatasemBarra = Replace(Data, "/", "-")

Então a pasta pode ser renomeada com Name "C:\MeuCaminho\Desktop\Dados" As newName & DatasemBarra

Código Completo

Dim newName As String
Dim FSO As Object

Set FSO = CreateObject("scripting.filesystemobject")

Data = DateSerial(Year(Now), Month(Now), Day(Now))
DatasemBarra = Replace(Data, "/", "-")
newName = "C:\Users\MeuPC\Desktop\Dados"

If FSO.FolderExists(newName) = False Then
    MsgBox newName & " não existe."
    Exit Sub
Else
    Name "C:\Users\MeuPC\Desktop\Dados" As newName & DatasemBarra
End If

E uma opção para não utilizar o objeto filesystemobject:

Dim newName As String

Data = DateSerial(Year(Now), Month(Now), Day(Now))
DatasemBarra = Replace(Data, "/", "-")
newName = "C:\Users\Usuario\Desktop\Dados"

 If Dir(newName, vbDirectory) = "" Then
    MsgBox newName & " não existe."
    Exit Sub
Else
    Name newName As newName & DatasemBarra
End If
10
  • Daniel, bom dia! Fiz as alterações que você disse e tentei executar algumas vezes. As vezes funciona e as vezes aparece o erro: "Erro em tempo de execução '75': Erro de acesso a caminho/arquivo". Algum motivo para isso? Commented 26/03/2018 às 12:26
  • Em qual linha ocorre o erro? Commented 26/03/2018 às 12:43
  • Onde renomeia a pasta, na linha do 'name "..." as "...." Commented 26/03/2018 às 12:50
  • Bom eu não consigo reproduzir este erro, mas você possui alguma restrição de usuário? É um computador de empresa? Pode ser que você não tenha permissão de acesso ou o Caminho está incorreto. Porém se você utilizou o código completo que verifica se há a pasta, o problema provavelmente seria de permissão mesmo. Commented 26/03/2018 às 12:58
  • 1
    Daniel, consegui resolver isso! O problema era tempo. O código tentava renomear o arquivo antes de ele aparecer na pasta. Coloquei um comando de Sleep e deu certo. Commented 29/03/2018 às 17:23

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .