Skip to main content

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

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

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

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

Reversão para edição 4
Fonte Link
hugocsl
  • 66,9mil
  • 17
  • 88
  • 166

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

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

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

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

formatação de código
Fonte Link
hugocsl
  • 66,9mil
  • 17
  • 88
  • 166

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

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

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

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

adicionou 1 caractere ao conteúdo
Fonte Link
Carregando
formatação de código
Fonte Link
hugocsl
  • 66,9mil
  • 17
  • 88
  • 166
Carregando
adicionou 375 caracteres ao conteúdo
Fonte Link
Carregando
Post restaurado por Leandro Lazari
Post removido por Leandro Lazari
Fonte Link
Carregando