Copiar e subscrever diretórios.

[jlrdasilva]

Estou aprendendo sobre Excel VBA.

tenho este comando BAT:

 

xcopy /e /k /y "C:\Sistema" "G:\Backup de Sistema"

 

Preciso de uma macro que faça o que este comando faz.

 

Ou seja, copia e subscreve tudo o que está em "C:\Sistema", subastas e arquivos mesmo abertos, para "G:\Backup de Sistema" sem me perguntar se quero substituir os arquivos existentes.

eu já consegui copiar os arquivos, mas sempre abre uma janela do SO perguntando se quero substituir.

 

Alguém pode me dar uma "luz"?

[jlrdasilva]

achei uma macro que é quase:

 

'Copiar e subscreve todos os arquivos de uma pasta para outra pasta sem perguntar:

'Só não copia subpastas e arquivos abertos.

'Tive que duplicar a macro para cada sub pasta

 

Sub CopiaTodosOsArquivos()
Dim fso
Dim sfol As String, dfol As String
sfol = "C:\Sistema\" ' caminho de origem dos arquivos
dfol = "G:\Backup de Sistema\" ' caminho de destino dos arquivos
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If Not fso.FolderExists(sfol) Then
MsgBox sfol & " caminho invalido.", vbInformation, "Erro"
ElseIf Not fso.FolderExists(dfol) Then
MsgBox dfol & " caminho invalido.", vbInformation, "Erro"
Else
fso.CopyFile (sfol & "\*.*"), dfol ' Alterar "\ *.*" para "\ *. xls" para mover só arquivos Excel
End If
If Err.Number = 53 Then MsgBox "não encontrado."
End Sub