Lonnie Johnson
prodevmg at yahoo.com
Thu Oct 20 11:21:12 CDT 2005
Thanks. I will take a look-see at this and let you know. Bobby Heid <bheid at appdevgrp.com> wrote:I don't have the info hand at the moment, but look at the command line version of WinZip here: http://www.winzip.com/downcl.htm There are some docs with it that show all of the details. It's easy to do what you want. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson Sent: Thursday, October 20, 2005 10:38 AM To: AccessD solving' Subject: [AccessD] Zipping Certain Files Hello Great Ones, I use the following to zip files and folders. Is there code to zip "specific" files in a folder? CODE Dim strAppName As String Dim FilesToBeZipped As String Dim NameOfNewZipFile As String strAppName = "C:\Program Files\WinZip\WINZIP32.EXE" FilesToBeZipped = "H:\ACCOUNT\CORP_RELO\Databases\" Dim toLoc As String Dim newDB As String toLoc = "C:\BackUp\Databases\" NameOfNewZipFile1 = toLoc1 & newDB Call Shell(strAppName & " -A -r -P " & NameOfNewZipFile & " " & FilesToBeZipped, 1) May God bless you beyond your imagination! Lonnie Johnson ProDev, Professional Development of MS Access Databases Visit me at ==> http://www.prodev.us -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com May God bless you beyond your imagination! Lonnie Johnson ProDev, Professional Development of MS Access Databases Visit me at ==> http://www.prodev.us --------------------------------- Yahoo! Music Unlimited - Access over 1 million songs. Try it free.