Vista - Zip error using VBSCRIPT Error:Object not a collection

The error is in this part of code below. Object not a collection. The script
still zips files but gives a msg error. I would appreciate anyone's response.


'save sfx zip archive
On Error Resume Next
FileCount = Zip.Save("")
If Err.number <> 0 Then
result = Err.description
Call LogTxt(result)
SendMail mailSubject & " - ERROR", "Error zipping file."
Else
Call LogTxt("SFX Created: " & FileCount & " Files")
End If


Here is my complete code:

Sub CreateZipSFX()
Dim Zip
Dim FileName, FileList, TempFolder, FileCount

Set Zip = CreateObject("SoftComplex.Zip")

'create new zip archive
Zip.New(zipLocation & dojFileName)

'set root folder
Zip.RootDirectory = filesLocation

Zip.SFXExtractionPathVar = appLocation

On Error Resume Next
Zip.FileList.Add("*.*")
If Err.number <> 0 Then
result = Err.description
Call LogTxt(Err.description)
SendMail mailSubject & " - ERROR", "Error zipping file."
Else
Call LogTxt("FILES ADDED TO ZIP.")
End If

'save sfx zip archive
On Error Resume Next

Set Zip = Nothing
End Sub

url:http://www.ureader.com/gp/1675-1.aspx

"brian" <keven.johnson@xxxxxx> wrote in message
news:a6f19d2919884337b2f971e7e2e6f6a9@xxxxxxYour code raises many questions. I don't have "SoftComplex.zip" and don't
know what it is. Beyond that, we don't know what the following variables
refer to, or if they have values: mailSubject, appLocation, FilesLocation,
zipLocation, dojFileName. Also the subroutine LogTxt is unknown. Also, the
following variables are declared in a Dim statement but not used: FileName,
FileList, TempFolder, FileCount.

Now I also notice that the code you say raises the error does not appear in
the complete program you posted. I suspect we are not seeing the real
program. Does you error message give a line number? It would help to know
exactly which line raises the error. It might be in the Sub LogTxt that we
don't see.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

On May 26, 12:55*pm, "Richard Mueller [MVP]" <rlmueller-
nos...@xxxxxx> wrote:
DotNetZip is a free zip library+tool; it can be used from within
VBScript.
http://dotnetzip.codeplex.com

Example code to create a zip file:
-----------------------------
dim filename
filename = "C:\temp\ZipFile-created-from-VBScript.zip"

WScript.echo("Instantiating a ZipFile object...")
dim zip
set zip = CreateObject("Ionic.Zip.ZipFile")

WScript.echo("using AES256 encryption...")
zip.Encryption = 3

WScript.echo("setting the password...")
zip.Password = "This is the Password."

WScript.echo("adding a selection of files...")
zip.AddSelectedFiles("*.js")
zip.AddSelectedFiles("*.vbs")

WScript.echo("setting the save name...")
zip.Name = filename

WScript.echo("Saving...")
zip.Save()

WScript.echo("Disposing...")
zip.Dispose()

WScript.echo("Done.")
-----------------------------

You can also create self-extracting archives. Lots of other options.
Check it out.