Visual Basic Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
RSA
S/MIME
SFTP
SMTP
Socket
Spider
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
DH Key Exchange
DSA
FileAccess
RSS
Atom
Self-Extractor
Service
Bzip2
PPMD
Deflate
LZW


VB Strings
VB Byte Array

 

 

 

 

 

 

 

List Files in a .zip

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

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

How to list files within a .zip

Dim zip As New ChilkatZip2

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Failed to unlock zip!"
    Exit Sub
End If

success = zip.OpenZip("a.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    Exit Sub
End If

Dim n As Long

'  Get the number of files and directories in the .zip
n = zip.NumEntries
Text1.Text = Text1.Text & n & vbCrLf
Text1.Refresh

Dim entry As ChilkatZipEntry2

Dim i As Long
For i = 0 To n - 1

    Set entry = zip.GetEntryByIndex(i)
    If (entry.IsDirectory = 0) Then
        '  (the filename may include a path)
        Text1.Text = Text1.Text & entry.FileName & vbCrLf
        Text1.Refresh
    End If

Next

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