VB.NET Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML to XML
HTTP
IMAP
Encryption
MHT / HTML Email
PFX
RSA Encryption
S/MIME
Socket
Spider
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor

Byte Array
VB.NET FTPS
System.IO

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

 

 

 

 

 

 

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.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim rar As New 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.

Dim success As Boolean

success = rar.Open("abc123.rar")
If (success <> true) Then
    MsgBox(rar.LastErrorText)
    Exit Sub
End If


'  Entries within the RAR can be accessed by name or by index.
Dim entry As Chilkat.RarEntry
entry = rar.GetEntryByName("HelloWorld123.txt")
If (entry Is Nothing ) Then
    MsgBox(rar.LastErrorText)
Else
    success = entry.Unrar("c:/temp/unrarDest")
    If (success = false) Then
        MsgBox(rar.LastErrorText)
    Else
        MsgBox("Success.")
    End If

End If




'  Alternatively, get an entry by index.  The first entry
'  is at index 0.
entry = rar.GetEntryByIndex(0)
If (entry Is Nothing ) Then
    MsgBox(rar.LastErrorText)
Else
    success = entry.Unrar("c:/temp/unrarDest")
    If (success = false) Then
        MsgBox(rar.LastErrorText)
    Else
        MsgBox("Success.")
    End If

End If



 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser