loShell = CREATEOBJECT("shell.application") * Backup files and subdirectories in une level up lcdir = FULLPATH('..\') loFolder = loShell.NameSpace(lcdir ).Items lcZipFile = 'c:\backups\mybackup.zip' * Create empty zip file STRTOFILE(CHR(80)+CHR(75)+CHR(5)+CHR(6)+REPLICATE(CHR(0), 18), lcZipFile, 0) loShell.NameSpace(lcZipFile).copyHere(loFolder)