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.
'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 RespostaFelipe Fidelisquinta-feira, 25 de junho de 2009 02:26
'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 RespostaFelipe Fidelisquinta-feira, 25 de junho de 2009 02:26
