hi,
this post looks very much like something i'd like to do.
Zip my file, i used the code mentioned above as following:
Sub SendFiles()
Dim SendAddress As String, ZipFile As String, ZipList As String
Dim ShellString As String, FileToZip As String
FileToZip = "c:\mim.xls"
ZipFile = "c:\mim.zip"
ShellString = "C:Program Files\Powerarchiver\powerarc.exe " & ZipFile & " " & FileToZip
Shell ShellString
End Sub
If i use this macro it starts Powerarchiver (So far so good), but then i'd hoped it would zip mim.xls into mim.zip but it stops after openening Powerarchiver. any ideas?
