Encrypting Zip Files using VBA from ACCESS 1

[PSUIVERSON]

I have a program that sends very sensitive Payroll data out to multiple departments. Each department receives 6 files. The program Creates the tables based on department numbers - exports to .txt and .prn files into folders and then I just figured out how to zip them.

Now I need to know how to use the password utility in WINZIP using VBA??? Anyone help me out? Thanks...

ZIP PROGRAM:

Public Function zipFiles()

Dim source As String
Dim target As String

source = Chr$(34) & "C:\DEPTS\050\" & Chr$(34)
target = Chr$(34) & "C:\DEPTS\050\050" & Chr$(34)

Shell ("C:\Program Files\WinZip\WINZIP32.EXE -min -a " & target & " " & source)

End Function

 

[Rick39]

Take a look at

http://www.winzip.com/xcmdline.htm

 

[PSUIVERSON]

YOU DA MAN!!! Thanks brother.

 

[PSUIVERSON]

Option Compare Database
Option Explicit


Public Function zipFiles()

Dim source As String
Dim target As String
Dim password As String

source = Chr$(34) & "C:\DEPTS\050\" & Chr$(34)
target = Chr$(34) & "C:\DEPTS\050\050" & Chr$(34)

password = Chr$(34) & "JORDAN" & Chr$(34)
Shell ("C:\Program Files\WinZip\WINZIP32.EXE -min -a -sPASSWORD " & target & " " & source)

End Function

 

[BeckyLee]

PSUIVERSON and Rick39 Thank you very much for this post it is going to help me dramtically. I just need to extract the a file.