Backup - ZIP - Then email

[alanimal]

Do you know if there is an easy way to automate a backup of certain files in a folder? What I need to do is, back up the last 31 files in a folder that have been modified by date.

All he files are named yyyymmdd.jou (year, month, day) these need to be zipped up and then emailed. Not asking too much??

Cheers in advance

[Marcus Tettmar]

Not asking much no. We can use GetFileList to get a list of the files. Then loop through them, zip them using the zip library and email them using SMTPSendMail.

However, the devil is in the detail. Before we go writing example code for you can you explain what you mean by the last 31 files? Do you mean the NEWEST 31 files, or the OLDEST 31 files? Is it always 31 or might it vary? Please describe the criteria that determines which files should be zipped up. Then we can give you some more specific help and maybe even write some code for you.

[alanimal]

Thanks mate!
That figure has changed to 7 days, it should be the previous 7days. IE. If it was done today, the files I would need would have been modified on 05, 06,07,08,09,10,11 Oct.

[Marcus Tettmar]

So you want a script that zips up the latest 7 files in a folder, and emails that zip?

Ok. First you need to download the Zip Library from:
http://www.mjtnet.com/plugins.htm

Open up the ziplib.zip file and extract ziplib.dll and ziplib.ini into the Imports folder in your Macro Scheduler program folder. If an Imports sub folder does not exist, create one. So this Imports folder should be beneath the main Macro Scheduler 11 program folder (usually c:\program files\macro scheduler 11).

Now create a new macro and paste in the following code:

Code: Select all

//Config
Let>file_folder=c:\users\user\documents
Let>zip_file=c:\users\user\documents\zips\myzip.zip
Let>server=myserver.com
Let>[email protected]
Let>from_name=myself
Let>[email protected]
Let>subject=Here's the zip file
Let>body=See attached

//Run a DOS cmd to get list of files in folder sorted by date (oldest first - dos only does oldest first)
Let>RP_WINDOWMODE=0
Let>RP_WAIT=2
Run>cmd.exe /c dir "%file_folder%" /B /A-D /OD >> "%TEMP_DIR%\files.txt"

//Read in files
ReadFile>%TEMP_DIR%\files.txt,file_list
DeleteFile>%TEMP_DIR%\files.txt

//Separate file_list to array
Separate>file_list,CRLF,files

//We want last 7 items
Let>k=files_count-7
If>k<1
  Let>k=1
Endif

//loop through and zip them up
Repeat>k
  Let>this_file=files_%k%
  //worth double checking file exists
  IfFileExists>%file_folder%\%this_file%
    ZIP_Add>%zip_file%,%file_folder%\%this_file%,9,0,r
  Endif
  Let>k=k+1
Until>k=files_count

//now we can email the zip file
SMTPSendMail>recipients,server,from_email,from_name,subject,body,zip_file

Modify the first 8 lines to suit your setup. The first is the path of the folder containing the files you want to zip up. The second is the path for the zip file you want to create/modify.

Hopefully the rest of the code is self-explanatory.

[alanimal]

Thanks heaps for the code. The problem I have is that it is sending an email without an attachment - not sure what is the issue here - any ideas?
Your a legend thanks!

[alanimal]

hey mate - i have been trying to get this to work for me but have had no joy. I am receiving an email with no attachment - is there something I have missed? here is my code:

Code: Select all

Let>file_folder=c:\bup\
Let>zip_file=c:\zips\myzip.zip
Let>server=mail.chsglobal.com
Let>[email protected]
Let>from_name=ANZ_Backup
Let>[email protected]
Let>subject=Here's the zip file
Let>body=See attached

//Run a DOS cmd to get list of files in folder sorted by date (oldest first - dos only does oldest first)
Let>RP_WINDOWMODE=0
Let>RP_WAIT=2
Run>cmd.exe /c dir "%file_folder%" /B /A-D /OD >> "%TEMP_DIR%\files.txt"

//Read in files
ReadFile>%TEMP_DIR%\files.txt,file_list
DeleteFile>%TEMP_DIR%\files.txt

//Separate file_list to array
Separate>file_list,CRLF,files

//We want last 7 items
Let>k=files_count-7
If>k<1>k=1
Endif

//loop through and zip them up
Repeat>k
  Let>this_file=files_%k%
  //worth double checking file exists
  IfFileExists>%file_folder%\%this_file%
    ZIP_Add>%zip_file%,%file_folder%\%this_file%,9,0,r
  Endif
  Let>k=k+1
Until>k=files_count

//now we can email the zip file
SMTPSendMail>recipients,server,from_email,from_name,subject,body,zip_file

[Me_again]

Is the zip file being created?

[alanimal]

nah - cant see it anywhere. perhaps its a prob with the temp folder???

[Me_again]

Step through it in the debugger and see where it fails.

Also I suspect it's the forum that has corrupted it but your posted code has

Code: Select all

//We want last 7 items
Let>k=files_count-7
If>k<1>k=1
Endif

which should be

Code: Select all

//We want last 7 items
Let>k=files_count-7
If>k<1
  Let>k=1
Endif

[Marcus Tettmar]

Let's start with the bleeding obvious. Did you download and install the zip library as described? To be sure: Do you see an Imports folder in c:\program files\Macro Scheduler 11 and does that Imports folder include ziplib.dll and ziplib.ini ?

Which version of Macro Scheduler are you using?

When you step through with the debugger do you see values for file_list and files in the watch list? What is the value of files_count? Do you step through the Repeat/Until and onto Zip_Add or does that bit get skipped?

C'mon - give us a small scrap to go on .... my crystal ball is out of magic dust.

[alanimal]

Thanks - I am using 7.4 - I guess this wont work with the zip library?

[alanimal]

Ok, upgraded to 11 and it works a treat! Thanks heaps everyone!

[alanimal]

one further thing - is there any way to zip up one file type if there are multiple file types in the folder? There are .log and .jou files in the directory and we only want the .jou files. thanks!

[Me_again]

The best way to do that is to include the filespec when you define the source directory so:

Instead of:

Let>file_folder=c:\bup\

make it:

Let>file_folder=c:\bup\*.jou

[alanimal]

thanks, tried that - now it sends the email without the attachment