none
Script para testar se existe diretorio e copiar para um outro diretorio

    Question

  • 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 & "\"

     

     

     

    Monday, January 31, 2011 8:10 PM

Answers