none
Script similar ao XCOPY /C RRS feed

  • Pergunta

  • Bom dia Pessoal, preciso alterar um script.

    Hoje tenho esse script, mais se existir um arquivo na rede que ele não consiga copiar ele para a execução.

    Que continue copiando, mesmo que ocorram erros.

    como se fosse a opção do xcopy /C

     

    Script:

     

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell = CreateObject("Wscript.Shell")
    Set wshNetwork = CreateObject("Wscript.Network")
    Set FileClass = CreateObject("Scripting.FileSystemObject")

    dNow = Now
    dd = Right("00" &Day(dNow),2)
    mt = Right("00" &Month(dNow),2)
    yy = Right(Year(dNow),2)
    NewFolder = "e:\santos\data"  &dd &mt &YY & "\"
    objFSO.CreateFolder NewFolder

    'Mapeia Unidade de Rede

    WshNetwork.MapNetworkDrive "Z:","\\santos\abxdata"

    'copia arquivos

    FileClass.CopyFolder "Z:\*.*","e:\santos\data"& YY &mt &dd & "\"
    FileClass.CopyFile   "Z:\*.*","e:\santos\data"& YY &mt &dd & "\"


    'Remove Mapeamento
       wshNetwork.RemoveNetworkDrive "z:"

     

     


    Vinícius Kleber
    quinta-feira, 29 de julho de 2010 13:32

Respostas

  • Blza Vinicius e vc?

    Então, ja tentou executar o Xcopy dentro do Vbs?

    Porque pelo que eu vi e pesquisei o metodo copyfolder nao tem parametro para continuar caso ocorra um erro.

    O comando abaixo removo uma pasta do profile do usuario: 

    objShell1.Run ("cmd /c  rd \\Server\profiles$\"&strUser&" /s /q")

    sexta-feira, 30 de julho de 2010 16:03

Todas as Respostas

  • Em que caso vai existir arquivo na rede que ele não consiga copiar? Caso esse arquivo esteja aberto ou outro motivo?
    quinta-feira, 29 de julho de 2010 19:37
  • Fala Rodrigo beleza?

    Sim, ou algum arquivo corrompido.

    Deixa eu explicar por cima.

    Preciso manter uma copia diaria dos arquivos do meu file server, até eu formatar a unidade do file server!
    Semana passada houve um problema no meu servidor , onde corrompeu muitos arquivos.
    Eu tenho backup full de todos os arquivos, porém ainda não tive o tempo necessario para migrar meu ambiente, para um novo.
    Criei esse script acima, para ele fazer uma copia de todos os arquivos do meu file server, porém quando chega em um arquivo que está corrompido, ele para!
    Criei um script com o Xcopy, está funcionando o problema é que eu não consigo criar uma pasta do o dia atual.
    e no vbs eu consigo.
    Então queria a ajuda para criar essa verificação se existir algum erro continue copiando!

    Entendes?

    Muito Obrigado!


    Vinícius Kleber
    quinta-feira, 29 de julho de 2010 20:11
  • Blza Vinicius e vc?

    Então, ja tentou executar o Xcopy dentro do Vbs?

    Porque pelo que eu vi e pesquisei o metodo copyfolder nao tem parametro para continuar caso ocorra um erro.

    O comando abaixo removo uma pasta do profile do usuario: 

    objShell1.Run ("cmd /c  rd \\Server\profiles$\"&strUser&" /s /q")

    sexta-feira, 30 de julho de 2010 16:03
  • Vou testar já aviso.


    Obrigao Rodrigo!


    Vinícius Kleber
    sexta-feira, 30 de julho de 2010 16:27