[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





 





		
---------------------------------
 Yahoo! Music Unlimited - Access over 1 million songs. Try it free.