Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
Extract a Single File from a RAR Archive
Demonstrates how to open a RAR archive and extract a single file at a time. 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. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set rar = Server.CreateObject("Chilkat_9_5_0.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 Response.Write rar.LastErrorText & "<br>" End If ' Entries within the RAR can be accessed by name or by index. Set entry = rar.GetEntryByName("HelloWorld123.txt") If (entry Is Nothing ) Then Response.Write rar.LastErrorText & "<br>" Else success = entry.Unrar("c:/temp/unrarDest") If (success = 0) Then Response.Write rar.LastErrorText & "<br>" Else Response.Write "Success." & "<br>" End If End If ' Alternatively, get an entry by index. The first entry ' is at index 0. Set entry = rar.GetEntryByIndex(0) If (entry Is Nothing ) Then Response.Write rar.LastErrorText & "<br>" Else success = entry.Unrar("c:/temp/unrarDest") If (success = 0) Then Response.Write rar.LastErrorText & "<br>" Else Response.Write "Success." & "<br>" End If End If %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.