[AccessD] Zipping Certain Files

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.


More information about the AccessD mailing list