This is a Visual Basic script that backs up your online Google calendars. All you need to do is copy the code into a text editor such as notepad or my favourite Ultra Edit then save the file as Calendar-BackUp.vbs (not .txt or this is really not going to work for you).
Save your newly created file into a folder. This is where your backups are going to be saved.
Then we need to edit the following bits of code to get this running:
1) How many days do you want to keep, because this takes a new full calendar copy each time then you will soon have quite a few files, this setting deletes older backups for you:
Const intDaysOld = 200
2) How many online calenders do you have and want to backup.
Const intNumberOfgCalendars = 3
3) The last bit of editing is to get the calendar information.
Go to your Google Calendar www.google.com/calendar and find the settings.
Near the bottom of the setting page you will see ‘Private Address:’ and next to that the ‘ICAL’ button.
Click the ical button which will present you with a long URL which you need to copy and paste over: gCalenders(1,1)=”http://www.google.com/calendar/ical/SOME-CODES-1/basic.ics”
Then name the calendar by replacing: gCalenders(1,2)=”Coding Stuff”
A bit more about these elements and their formatting:
gCalenders(1 FIRST NUMBER GROUPS THE GOOGLE CALENDER URL AND SAVED FILE NAME TOGETHER
gCalenders(1,1 SECOND NUMBER INDICATES THAT THIS IS THE URL AND IS ALWAYS 1
gCalenders(1,2 SECOND NUMBER INDICATES THAT THIS IS SAVED FILE NAME AND IS ALWAYS 2
gCalenders(1,1)=”http://www.google.com/calendar/ical/blah/blah/basic.ics” THIS IS THE PRIVATE ICAL ADDRESS FOR A CALENDER
gCalenders(1,2)=”My Calender” THIS IS THE FILE NAME THAT THE CALENDER WILL BE SAVED AS
If you want to add another calender then simply add one number to the group (Remember to set the intNumberOfgCalendars = 2) ie:
And another (Remember to set the intNumberOfgCalendars = 3) :
Get the code: