Ola Boa tarde,
Eu estou com a seguinte dificuldade:
Eu tenho ja pronto aqui um script para copiar um diretorio existente em uma estaçao para um outro direorio de outra estaçao.
bom esta funcionando 100%.. porem todo mes tenho q ficar alterando ele para copiar outros diretorios criados..
Exemplo
PC1 = C:\NFe\2011\01\01\
C:\NFe\2011\01\02\
C:\NFe\2011\01\03\
...
PC2 = D:\NFe\
Script
Testa no PC2 em "D:\NFe\" dentro do diretorios NFe testa a existencia dos diretorios e arquivos em PC1 em D:\NFe se ele nao existir ele copia os ultimos diretorios e arquivos nao existentes em PC2 para PC2 cada vez q o Script for execultado.
O script q eu uso hj aqui eh esse abaixo, q funciona soh para arquivos.
strPastaOrigem = "D:\Temp"
strPastaDestino = "D:\Temp2"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Pasta = fso.GetFolder(strPastaOrigem)
Set colSubfolders = pasta.Subfolders
dtUltimaData = DateAdd("y",-100,now)
strUltimaPasta = ""
For each objSubfolder In colSubfolders
if objSubfolder.DateLastModified >= dtUltimaData then
strUltimaPasta = objSubfolder.Name
dtUltimaData = objSubfolder.DateLastModified
end if
next
'Copiar a Pasta
if strUltimaPasta <> "" then fso.CopyFolder strPastaOrigem & "\" & strUltimaPasta , strPastaDestino & "\"
