none
Substituição + variável RRS feed

  • Pergunta

  • Boa Tarde a todos

    Testei algumas opções de scripts para a substituição de um arquivo que está na pasta arquivos de programas\nome do programa\nome do arquivo sendo que ele deve procurar o arquivo novo no caminho  server\netlogon

    Ocorre que ao colocar a variável %program files%  na origem ele dá erro junto com o \\server\netlogon\file.txt

    como ficaria esse script? é possível eu parar um determinado serviço e startar com esse mesmo script?

    Segue um exemplo porém com datas:

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objLocalFile = objFSO.GetFile("%program files%\meu programa\scripts\test.txt")
    dtmLocalDate = objLocalFile.DateLastModified

    Set objServerFile = objFSO.GetFile("\\atl-fs-01\public\test.txt")
    dtmServerDate = objServerFile.DateLastModified

    If dtmLocalDate < dtmServerDate Then
        objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
    End If

    Grato a todos

    quarta-feira, 17 de junho de 2009 18:43

Respostas

  • Olá,

    Faça um teste com o script abaixo:



    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set oShell = CreateObject("WScript.Shell")
    Set oProcEnv = oShell.Environment("PROCESS")
    sProgramFiles = oProcEnv("ProgramFiles")


    Set objLocalFile = objFSO.GetFile(sProgramFiles & "\meu programa\scripts\test.txt")
    dtmLocalDate = objLocalFile.DateLastModified

    Set objServerFile = objFSO.GetFile("\\atl-fs-01\public\test.txt")
    dtmServerDate = objServerFile.DateLastModified

    If dtmLocalDate < dtmServerDate Then
        objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
    End If



    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quinta-feira, 18 de junho de 2009 20:40