Script de Backup em VBS e excluir backup antigos

Para criar um arquivo, usaremos RAR archiver. Ele pode ser baixado a partir de http://www.rarlab.com/download.htm. Depois de instalar este aplicativo, copie o arquivo rar.exe (encontrado em C: \ Program Files \ WinRAR) para C: \ Windows. Desta forma, você pode executar rar.exe de qualquer lugar no sistema e ele vai encontrá-lo.

Para o propósito deste tutorial, usaremos:

Data de validade: 15 dias (para que manter os backups por 2 semanas)

Caminho de backup (Destination): D:\Pessoal

Os arquivos que estão sendo armazenados em backup (Fonte): C:\Drivers e C:\Users\Fabio\Pictures

------------------------------------------------------------------------------------------------------------

Dim Fso

Dim Directory

Dim Modified

Dim Files

Dim MyDate

Dim OutputFile

Dim OutputFile1

MyDate = Replace(Date, "/", "-")

OutputFile = "backup-" & mydate & ".rar"

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "C:\windows\rar.exe a D:\Pessoal\" & OutputFile & " C:\Drivers" 

OutputFile1 = "backup-" & mydate & ".rar"

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "C:\windows\rar.exe a D:\Pessoal\" & OutputFile & " C:\Users\Fabio\Pictures" 

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Directory = Fso.GetFolder("D:\Pessoal")

Set Files = Directory.Files

For Each Modified in Files

    If DateDiff("D", Modified.DateLastModified, Now) > 15 Then Modified.Delete

Next

------------------------------------------------------------------------------------------------------------

Em primeiro lugar, o script criará um arquivo com uma data incorporado (por isso vai ser no formato: de backup-28-9-2015.rar para um backup que foi criado no dia 28 de setembro de 2015)

Em seguida, ele executa a ferramenta externa, rar.exe, onde ele adiciona arquivos para o arquivo recém-criado

Finalmente, ele verifica no diretório de backup para arquivos mais antigos que 15 dias e exclui-los.