Zip Format?

[David Burgun]

Hi,

I'm using the following function to create a Zip file:

------------------------------------------------------------------------ 
-
--
--  UtilFileCreateZipFile
--
------------------------------------------------------------------------ 
-
function UtilFileCreateZipFile theZipArchiveFilePathName,theFileToZip

   --
   --  Delete the Archive File if it exists
   --
   if there is a file theZipArchiveFilePathName then
     delete file theZipArchiveFilePathName
   end if

   --
   --  Create the Archive File
   --
   revZipOpenArchive theZipArchiveFilePathName,"write"
   if the result <> empty then return the result

   --
   --  Add the File to the Archive
   --
   revZipAddItemWithFile  
theZipArchiveFilePathName,"iTunesLibrary",theFileToZip
   if the result <> empty then return the result

   --
   --  Close the Archive File
   --
   revZipCloseArchive theZipArchiveFilePathName
   if the result <> empty then return the result

   return empty
end UtilFileCreateZipFile


This file is  then uploaded via FTP to a server using the  
"libURLftpUploadFile" function.

My problem is that the Server is expected a GZip format file. Does  
the "revZipAddItemWithFile" function create a GZip file? If not how  
can I do this?

Thanks a lot for any assistance or suggestion.

All the Best
Dave