Related Items  

Linux and Windows IT Support  

dedicated-technology-experts

Windows, Apple and Linux IT support and services.

For Software and Web Development.

Simple backup script (VBS)

PrintE-mail

VBSccript file format iconQ. I would like to have a simple backup script, running under windows, which would:

1. Create an archive of my files

2. Delete the archive after a period of time

A. To create an archive, we'll use RAR archiver. It can be downloaded from https://www.rarlab.com/download.htm. After you install this application, copy the file rar.exe (found in C:\Program Files\WinRAR) to C:\Windows. This way you can run rar.exe from anywhere on the system and it will find it.

For the purpose of this tutorial we'll use:

Expiration date: 15 days (so we keep the backups for 2 weeks)

Backup path (Destination): C:\backups

Files that are being backed up (Source): C:\inetpub\wwwroot (IIS websites)


Dim Fso
Dim Directory
Dim Modified
Dim Files
Dim MyDate
Dim OutputFile
MyDate = Replace(Date, "/", "-")

OutputFile = "backup-" & mydate & ".rar"
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\windows\rar.exe a c:\backups\" & OutputFile & " C:\inetpub\wwwroot"

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Directory = Fso.GetFolder("C:\backups")
Set Files = Directory.Files
For Each Modified in Files
    If DateDiff("D", Modified.DateLastModified, Now) > 15 Then Modified.Delete
Next

Firstly, the script will create an archive file with a date embedded (so it will be in the format: backup-10-4-2011.rar for a backup that was created on October 4th, 2011)

Then it runs the external tool, rar.exe, where it adds files to the newly created archive

Finally, it checks in the backup directory for files older that 15 days and deletes them.

Update: Thanks JK - fixed the errors.

 

Comments (1)
missing line breaks
1 Friday, 07 October 2011 13:23
JK
You are missing some line breaks on line:
Dim OutputFile MyDate = Replace(Date, "/", "-")

and

OutputFile = "backup-" & mydate & ".rar" Set objShell = WScript.CreateObject("WScript.Shell")

Gives an error when running

Add your comment

Your name:
Subject:
Comment:
  The word for verification. Lowercase letters only with no spaces.
Word verification:
yvComment v.1.24.0
   
Copyright © 1999 - 2019 Virtual Helpme | Trusted IT Services | Original Template: Allrounder