terça-feira, 5 de janeiro de 2010

Script para backup

REM *************************************************************************

REM                                                          SCRIPT PARA BACKUP 
REM *************************************************************************

Set FSO = CreateObject("Scripting.FileSystemObject")
strdiasemana = Weekday(now)
Set WshShell = WScript.CreateObject("WScript.Shell")

REM ********** Cria o nome da pasta baseado na data **********
sPasta = "c:\" & day(now) & month(now) & year(now)

REM Criar pasta
Set NovaPasta = FSO.CreateFolder(sPasta)

REm Colocar a contrabarra no final do nome da pasta
sPasta = sPasta  & "\*"

if (strdiasemana = "1") then
    REM ********** Backup de Domingo**********
    REM ********** Copiar um arquivo **********
    FSO.CopyFile "Arquivo de Origem", sPasta
    REM ********** Copiar uma pasta **********
    FSO.CopyFolder "Pasta de Origem",sPasta.
elseif (strdiasemana = "2") then
    REM ********** Backup de Segunda Feira**********
    REM ********** Copiar um arquivo **********
    FSO.CopyFile "Arquivo de Origem", sPasta
    REM ********** Copiar uma pasta **********
    FSO.CopyFolder "Pasta de Origem",sPasta
elseif (strdiasemana = "3") then
    REM ********** Backup de Terça Feira**********
    REM ********** Copiar um arquivo **********
    FSO.CopyFile "Arquivo de Origem", sPasta
    REM ********** Copiar uma pasta **********
    FSO.CopyFolder "Pasta de Origem",sPasta
elseif (strdiasemana = "4") then
    REM ********** Backup de Quarta Feira**********
    REM ********** Copiar um arquivo **********
    FSO.CopyFile "Arquivo de Origem", sPasta
    REM ********** Copiar uma pasta **********
    FSO.CopyFolder "Pasta de Origem",sPasta
elseif (strdiasemana = "5") then
    REM ********** Backup de Quinta Feira**********
    REM ********** Copiar um arquivo **********
    FSO.CopyFile "Arquivo de Origem", sPasta
    REM ********** Copiar uma pasta **********
    FSO.CopyFolder "Pasta de Origem",sPasta
elseif (strdiasemana = "6") then
    REM ********** Backup de Sexta Feira**********
    REM ********** Copiar um arquivo **********
    FSO.CopyFile "Arquivo de Origem", sPasta
    REM ********** Copiar uma pasta **********
    FSO.CopyFolder "Pasta de Origem",sPasta
elseif (strdiasemana = "7") then
    REM ********** Backup de Sábado**********
    REM ********** Copiar um arquivo **********
    FSO.CopyFile "Arquivo de Origem", sPasta
    REM ********** Copiar uma pasta **********
    FSO.CopyFolder "Pasta de Origem",sPasta
end if
REM ********** Destroi os objetyos criados **********
Set WshShell = Nothing
set FSO = Nothing

Para operacionalizar este script, basta colocar os seus arquivos a serem copiados dentro de cada cláusula IF do código acima, e salvar o arquivo com a extensão ".vbs".
Para rodar este script todos os dias em um horário predefinido, pode-se usar o agendador de tarefas do Windows.
Os arquivos criados ficarão em uma pasta com o nome de acordo com a data corrente. Por exemplo, no dia 9 de janeiro de 2010, a pasta onde os arquivos serão armazenados será 912010.