none
Procurar e sobrescrever RRS feed

  • Pergunta

  • Tudo bem pessoal?!

    To procurando um script que faça uma procura na pasta c:\documents and settings, se acha o arquivo prefs.js, sobrescrever por um arquivo com o mesmo nome que se encontra em um mapeamento.

    Até achei um que procura o arquivo mas parei mesmo na substituição do arquivo.

    Abs
    Fidelis
    quarta-feira, 24 de junho de 2009 13:46

Respostas

  • Olá,

    Verifique o script abaixo:

    'PASTA ONDE QUER BUSCAR O ARQUIVO
    strPasta="C:\teste\"

    'PASTA ONDE ESTÁ O ARQUIVO DE ORIGEM
    strOrigem = "\\srvlinux\jesiel\"

    'NOME DO ARQUIVO DE ORIGEM
    strArquivo = "teste.txt"

    set FSo = CreateObject("Scripting.FileSystemObject")

    BuscaArquivos(strPasta)

    Sub BuscaArquivos(Pasta)

    set folder = FSO.getFolder (Pasta)


    if folder.Subfolders.count > 0 then
      for each SubFolder in folder.Subfolders
       BuscaArquivos SubFolder
      next
    end if


    for each file in folder.files
       if file.name = strArquivo Then
         FSO.DeleteFile(folder.shortpath & "\" & strArquivo)
         FSO.CopyFile strOrigem & "\" & strArquivo , folder.shortpath & "\" & strArquivo, TRUE
         exit sub
       End if
    next

    end sub


    Faça os testes se te atende e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Felipe Fidelis quinta-feira, 25 de junho de 2009 02:26
    quarta-feira, 24 de junho de 2009 16:22

Todas as Respostas

  • Olá,

    Verifique o script abaixo:

    'PASTA ONDE QUER BUSCAR O ARQUIVO
    strPasta="C:\teste\"

    'PASTA ONDE ESTÁ O ARQUIVO DE ORIGEM
    strOrigem = "\\srvlinux\jesiel\"

    'NOME DO ARQUIVO DE ORIGEM
    strArquivo = "teste.txt"

    set FSo = CreateObject("Scripting.FileSystemObject")

    BuscaArquivos(strPasta)

    Sub BuscaArquivos(Pasta)

    set folder = FSO.getFolder (Pasta)


    if folder.Subfolders.count > 0 then
      for each SubFolder in folder.Subfolders
       BuscaArquivos SubFolder
      next
    end if


    for each file in folder.files
       if file.name = strArquivo Then
         FSO.DeleteFile(folder.shortpath & "\" & strArquivo)
         FSO.CopyFile strOrigem & "\" & strArquivo , folder.shortpath & "\" & strArquivo, TRUE
         exit sub
       End if
    next

    end sub


    Faça os testes se te atende e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Felipe Fidelis quinta-feira, 25 de junho de 2009 02:26
    quarta-feira, 24 de junho de 2009 16:22
  • Obrigado Jesiel.
    Funcionou numa boa!!!
    Fidelis
    quinta-feira, 25 de junho de 2009 02:26
  • Obrigado Jesiel.
    Funcionou numa boa!!!
    Fidelis

    Bom dia!
    Qual a extensão que uso para esse script?
    Desde já agradeço
    sexta-feira, 31 de julho de 2009 12:50
  • Olá,

    O script é vbs.

    Só salvar com a extensão .vbs


    Até mais,

    Jesiel
    sexta-feira, 31 de julho de 2009 12:52