Olá,
Não ficou muito claro sua necessidade...
Você precisa copiar a pasta com os arquivos ou somente os arquivos???
Talvez, seja interessante um script que copie de acordo com a data de modificação do arquivo (se a data de modificação da origem for maior que o destino, copia, se não for, não copia)
Dá uma olhada no script abaixo:
Set objNetwork = CreateObject("Wscript.Network")
strUserName = objNetwork.Username
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Coloque aqui a pasta que será verificada
strPasta = "
\\servidor\pasta\arquivo "
'Coloque aqui a pasta para a qual os arquivos serão copiados (Se quiser copiar, se nao quiser apague essa linha)
strDest = "c:\Documents and Settings\All Users\Desktop\"
' NOME DO ARQUIVO DE LOG
strLogFile = "C:\Documents and Settings\" & strUserName & "\Desktop\BACKUP-LOG.txt"
arrTipos = split(arrTipos,";")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine VBCRLF
objLogFile.WriteLine "==================================================="
objLogFile.WriteLine "ARQUIVOS COPIADOS EM: " & now
objLogFile.WriteLine "==================================================="
ChecaArquivo strPasta
GeraLog(strPasta)
wscript.quit
Sub ChecaArquivo(strSubPasta)
Set Folder = ObjFSO.GetFolder(strSubPasta)
For each subFolder in Folder.SubFolders
GeraLog SubFolder.Path
ChecaArquivo SubFolder.path
Next
End sub
'====================================================================
Sub GeraLog(strCaminho)
Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files
For Each MyFiles in objArq.Files
strFileOrig = Myfiles.path
strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))
if (objFSO.FileExists(strFileDest) = True) Then
Set objFileDest = objFSO.GetFile(strFileDest)
If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 0 Then
objFSO.Copyfile strFileOrig,strFileDest,True
objLogFile.WriteLine "ARQUIVO SUBSTITUIDO : " & myfiles.name & " copiado em : " & Now
End if
Else
pastapai = MID(RIGHT(myFiles.ParentFolder,LEN(myFiles.ParentFolder)),Len(strPasta),Len(myFiles.ParentFolder))
dirDest = strDest
arrTipos = split(pastapai,"\")
For x = 0 to UBOUND(arrTipos)
if objFSO.folderexists(dirDest & arrTipos(x)) = false Then
objFSO.CreateFolder(dirDest & arrTipos(x))
dirDest = dirDest & arrTipos(x)
Else
dirDest = dirDest & arrTipos(x)
End if
Next
objFSO.Copyfile strFileOrig,strFileDest,True
objLogFile.WriteLine "ARQUIVO NOVO : " & dirDest & myfiles.name & " copiado em : " & Now
End if
Next
End sub
O script acima está copiando e gerando um log.... Talvez nem precisa, aí basta você remover as linhas...
Até mais,
Jesiel
Obs.: Se útil, classifique
