In VBScript:

<%
Set objSZ = Server.CreateObject("Stonebroom.ServerZip2")
objSZ.sourceFileList = "/MyDirectory/MyFile.doc"
objSZ.zipFileName = "MyNewFile.zip"
objSZ.virtualTargetRoot = "/Downloads"
blnWorked = objSZ.doZip()
%>

<%
objSZ = Server.CreateObject('Stonebroom.ServerZip2');
objSZ.sourceFileList = '/MyDirectory/MyFile.doc';
objSZ.zipFileName = 'MyNewFile.zip';
objSZ.virtualTargetRoot = '/Downloads';
blnWorked = objSZ.doZip();
%>

ServerZip works best if buffering is enabled in the ASP page. It can then flush sections of the page to the browser as the code executes. You can turn on buffering by inserting the line:

<% Response.Buffer = True %>

<% Script.Timeout = 120 %>

The component can only process one zip operation at a time (although concurrent file listing and delete operations are allowed). This helps to prevent overloading of the server by the processor-intensive compression code. You can query the components zipIsBusy property to see if it is in use:

'see if the component is busy or can start the zip operation
If objSZ.zipIsBusy Then
  Response.Write "Waiting to access the component ...<P>"
  Response.Flush
  'force display by the browser with two Write and Flush operations
  Response.Write ""
  Response.Flush
  'then wait for up to one minute for the component to become available
  intWaitUntil = (Minute(Now) + 1) Mod 60
  Do While (objSZ.zipIsBusy) And (Minute(Now) <> intWaitUntil)
  Loop
End If
If objSZ.zipIsBusy Then      'still busy after 1 minute
  Response.Write "Sorry, the component is too busy at present.<P>"
  Response.Flush
Else                         'OK to do the zip
  blnWorked = objSZ.doZip()  'call the doZip method to create the new zip file
End If

You can also control some of the features and provide a more secure environment for your server using the Security Manager application, named SZConfig.exe, which is installed in the Stonebroom directory.

To compress files, you must set the appropriate properties then call the doZip() method. An error occurs if a required property is not set correctly.

To list the names of files that are stored on the server in the users's browser, you must provide the directory name. You can also specify text and HTML that is placed before and/or after each file in the list. To create the listing, you then call the fileListing() method, with an optional parameter that is a file specification which limits the files included in the list to those that match the specification.

Each doZip() process creates a new unique directory within an existing virtual directory on the server, and places the zip file that is to be downloaded within it. To remove the old directories, you use the deleteOldFiles() method. You can specify how many days old the directory must be before it is deleted.

The ServerZip component provides wide-ranging access to all the drives and directories of your server, and could possibly be used by unwelcome visitors to cause damage to the server installation. To prevent this, you can set options that control how much freedom the component has to access files and directories. These setting are stored in Windows Registry under the key:

HKEY_LOCAL_MACHINE\SOFTWARE\Stonebroom\ServerZip\