Framework EDI Reference. Methods and Properties
ediFileSystem. ZipFile

Compresses the contents of a file to a target file.

Syntax:

• <lRetVal> = object.ZipFile(<sOriginalFile>, <lCompressionMethod>, <sTargetCompressFile>)
•  

Parameters:

• sOriginalFile – Full path name of file to compress.
• lCompressionMethod – Compression method used to compress the contents of the file.  Only the supported mechanisms listed in Compression Method Type ID Constants are allowed.
• sTargetFile – Full path name of the target file that will contain the compressed data.

Returns

Returns 1 if the operation is successful; otherwise the operation returns zero.

Example

Dim oEdiDoc As Fredi.ediDocument
Dim oFileSystem As Fredi.ediFileSystem

' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument

' Get file system object.
Set oFileSystem = oEdiDoc.GetFileSystem

' Compress a file using ZIPINFO
oFileSystem.ZipFile App.Path & "\TestFile.TXT", CompressMethod_ZipInfo, App.Path & "\ZipFile_ZipInfo.zip"

' Compress a file using ZLIB
oFileSystem.ZipFile App.Path & "\TestFile.TXT", CompressMethod_ZLib, App.Path & "\ZipFile_ZLib.zip"

MsgBox "Done"

Samples

• M_ZipFile.zip