Zipping Certain Files 1

[LonnieJohnson]

Hello Great Ones,

I use the following to zip files and folders. Is there code to zip "specific" files in a folder?

    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)

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

May God bless you beyond your imagination!!!

 

[jrbarnett]

FilesToBeZipped = "H:\ACCOUNT\CORP_RELO\Databases\*.mdb"

will only zip up files with a .mdb extension in the folder.

John

 

[LonnieJohnson]

Ok.

What if all I wanted was db1.mdb and db3.mdb to be zipped into a certain zip file?

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

May God bless you beyond your imagination!!!

 

[jrbarnett]

FilesToBeZipped = chr (34) & "H:\ACCOUNT\CORP_RELO\Databases\db1.mdb" & Chr (34) & " " & chr (34) & "H:\ACCOUNT\CORP_RELO\Databases\db3.mdb" & Chr (34)

- basically you put a space after the first filespec, ensuring it is closed in quotes, open a second double quotemark and add a second filespec.

John

 

[LonnieJohnson]

Now that's what I'm talkin' bout!!!!

You da man!

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

May God bless you beyond your imagination!!!