SQL Server

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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    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