[AccessD] Zipping Certain Files

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