Open RAR Archive and List Contents

Download Chilkat Zip ActiveX (includes objects for .zip, .gz, .bz2, and .Z)

Demonstrates how to open a RAR archive and list the contents.

Note: The Chilkat RAR ActiveX objects are included in the "Chilkat Zip" ActiveX download. The RAR functionality contained within ChilkatZip2.dll is freeware, however, the Chilkat Zip, GZip, and .Z functionality is not freeware.

The Chilkat RAR for .NET and C++ are bundled in downloads that contain all Chilkat classes (both free and non-free). Make sure you select the download that matches your .NET Framework or VC++ version (6/7/8).

If running on x64, download the ActiveX, .NET, or C++ builds marked specifically for x64.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set rar = CreateObject("Chilkat.Rar")

'  Note: The Chilkat RAR functionality only provides the ability
'  to open, list, and "unrar" (i.e. extract) RAR archives.  It does
'  not provide the ability to create RAR archives.

'  Also, the Chilkat RAR functionality is free.  It does not
'  require a license to use indefinitely.

success = rar.Open("abc123.rar")
If (success <> 1) Then
    MsgBox rar.LastErrorText
    WScript.Quit
End If

n = rar.NumEntries
For i = 0 To n - 1

    Set entry = rar.GetEntryByIndex(i)

    outFile.WriteLine(entry.Filename)
    outFile.WriteLine(entry.UncompressedSize)
    outFile.WriteLine(entry.CompressedSize)

    If (entry.IsDirectory = 1) Then
        outFile.WriteLine("(directory)")
    End If

    If (entry.IsReadOnly = 1) Then
        outFile.WriteLine("(read-only)")
    End If

    outFile.WriteLine("----")

Next
outFile.Close