SQL Server Requires Chilkat v11.0.0+

List Files/Directories in Zip by Index

See more Zip Examples

Demonstrates how to iterate over the files and directories in a zip archive by index. SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    --  This example assumes the Chilkat API to have been previously unlocked.
    --  See Global Unlock Sample for sample code.

    DECLARE @zip int
    EXEC @hr = sp_OACreate 'Chilkat.Zip', @zip OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @zip, 'OpenZip', @success OUT, 'qa_data/zips/sample.zip'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @zip
        RETURN
      END

    DECLARE @numEntries int
    EXEC sp_OAGetProperty @zip, 'NumEntries', @numEntries OUT

    DECLARE @entry int
    EXEC @hr = sp_OACreate 'Chilkat.ZipEntry', @entry OUT

    DECLARE @i int
    SELECT @i = 0
    WHILE @i < @numEntries
      BEGIN
        EXEC sp_OAMethod @zip, 'EntryAt', @success OUT, @i, @entry
        --  Note: In the ZIP file format, it is not required for a ZIP file to contain explicit directory entries. 
        --  However, explicit directory entries can be included for convenience and compatibility with certain ZIP file processing tools and software.
        --  An explicit directory entry in a ZIP file is an entry that specifically represents a directory, rather than a file. 
        --  It usually has a directory name with a trailing slash (/) and zero-length content.
        EXEC sp_OAGetProperty @entry, 'IsDirectory', @iTmp0 OUT
        IF @iTmp0
          BEGIN

            EXEC sp_OAGetProperty @entry, 'FileName', @sTmp0 OUT

            PRINT @i + ': ' + @sTmp0 + ' (directory)'
          END
        ELSE
          BEGIN

            EXEC sp_OAGetProperty @entry, 'FileName', @sTmp0 OUT
            PRINT @i + ': ' + @sTmp0
          END
        SELECT @i = @i + 1
      END

    --  Sample output:

    --  0: aaa/ (directory)
    --  1: aaa/pigs.json
    --  2: bbb/ (directory)
    --  3: bbb/base64Cert.txt
    --  4: bbb/sub1/ (directory)
    --  5: bbb/sub1/brasil_cert.pem
    --  6: bbb/sub2/ (directory)
    --  7: bbb/sub2/penguins.gif
    --  8: bbb/sub2/starfish.jpg
    --  9: hamlet.xml
    --  10: hello.pdf

    EXEC sp_OAMethod @zip, 'CloseZip', NULL

    EXEC @hr = sp_OADestroy @zip
    EXEC @hr = sp_OADestroy @entry


END
GO