none
Script para copiar aquivos na rede RRS feed

  • Pergunta

  • Bom dia colegas,

    Gostaria saber se existe um script que copie um determinado arquivo em um determinado endereço em todas as maquinas da minha rede.
    O caso é que tenho que trocar o modelo de cartas de todas as maquinas para o ano de 2009 e gostaria de automatizar este processo.

    Att,
    quinta-feira, 8 de janeiro de 2009 13:20

Respostas

  • Olá Marcello,

    Ele só apaga se o arquivo existir com o mesmo nome.

    Seria o mesmo que copiar e substituir o arquivo

    Só que faltou os parametros, segue agora corrigido:

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists("c:\teste\arquivo.txt") Then

        objFSO.DeleteFile("C:\texte\arquivo.txt")
        objFSO.CopyFile "\\srvlinux\publico\teste.txt" , "c:\teste\arquivo.txt"
    Else
        objFSO.CopyFile "\\srvlinux\publico\teste.txt" , "c:\teste\arquivo.txt"
    End If


    Até mais,

    Jesiel
    quinta-feira, 8 de janeiro de 2009 15:22

Todas as Respostas

  • Olá,

    Voce pode utilizar o script abaixo e colocar no log on dos usuários


    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists("c:\destino\teste.txt") Then

        objFSO.delete
        objFSO.CopyFile "\\origem\share\teste.txt" , "c:\destino\arquivo.txt"
    Else
        objFSO.CopyFile "\\origem\share\teste.txt" , "c:\destino\arquivo.txt"
    End If



    Até mais,


    Jesiel


    Obs.: Se útil, classifique
    quinta-feira, 8 de janeiro de 2009 13:49
  • Jesiel,

    Obrigado, vou testar e já aviso se deu certo.


    quinta-feira, 8 de janeiro de 2009 13:58
  •  Jesiel S. Pereira wrote:
    Olá,

    Voce pode utilizar o script abaixo e colocar no log on dos usuários


    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists("c:\destino\teste.txt") Then

        objFSO.delete
        objFSO.CopyFile "\\origem\share\teste.txt" , "c:\destino\arquivo.txt"
    Else
        objFSO.CopyFile "\\origem\share\teste.txt" , "c:\destino\arquivo.txt"
    End If



    Até mais,


    Jesiel


    Obs.: Se útil, classifique


    Jesiel,

    Na verdade eu queria apenas acrescentar o modelos de cartas na pasta junto com os outros exitentes. Pelo que estou vendo neste script ele esta deletando caso exista algum. Seria isso?

    Att,
    quinta-feira, 8 de janeiro de 2009 15:12
  • Olá Marcello,

    Ele só apaga se o arquivo existir com o mesmo nome.

    Seria o mesmo que copiar e substituir o arquivo

    Só que faltou os parametros, segue agora corrigido:

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists("c:\teste\arquivo.txt") Then

        objFSO.DeleteFile("C:\texte\arquivo.txt")
        objFSO.CopyFile "\\srvlinux\publico\teste.txt" , "c:\teste\arquivo.txt"
    Else
        objFSO.CopyFile "\\srvlinux\publico\teste.txt" , "c:\teste\arquivo.txt"
    End If


    Até mais,

    Jesiel
    quinta-feira, 8 de janeiro de 2009 15:22
  • Obrigado Jesiel.
    quinta-feira, 8 de janeiro de 2009 18:11