Visual Basic Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# WinRTDelphi ActiveXDelphi DLLVisual FoxProJavaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerShellPythonRubySQL ServerUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET WinRTVBScript

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

 

 

 

 

 

 

 

Get FTP Directory Listing Information

Visual Basic example showing how to get information about files and subdirectories in the current remote FTP directory.

Dim ftp As New ChilkatFtp2

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Hostname = "www.example-code.com"
ftp.Username = "****"
ftp.Password = "****"

'  Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

'  The ListPattern property is our directory listing filter.
'  The default value is "*", which includes everything.
Text1.Text = Text1.Text & ftp.ListPattern & vbCrLf

'  To get file and sub-directory information, simply
'  loop from 0 to ftp.NumFilesAndDirs - 1
Dim i As Long
Dim n As Long
n = ftp.NumFilesAndDirs
If (n < 0) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

If (n > 0) Then
    For i = 0 To n - 1

        '  Display the filename
        Text1.Text = Text1.Text & ftp.GetFilename(i) & vbCrLf

        '  Display the file size (in bytes)
        Text1.Text = Text1.Text & ftp.GetSize(i) & vbCrLf

        '  Is this a sub-directory?
        If (ftp.GetIsDirectory(i) = 1) Then
            Text1.Text = Text1.Text & ".. this is a sub-directory" & vbCrLf
        End If

        Text1.Text = Text1.Text & "--" & vbCrLf
    Next
End If

Text1.Text = Text1.Text & "-----------------------------------" & vbCrLf

'  Changing the ListPattern automatically changes the value
'  of the NumFilesAndDirs property.  Only files and directories
'  matching the ListPattern are returned.
ftp.ListPattern = "*.asp"
n = ftp.NumFilesAndDirs
If (n < 0) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

If (n > 0) Then
    For i = 0 To n - 1

        '  Display the filename
        Text1.Text = Text1.Text & ftp.GetFilename(i) & vbCrLf

        '  Display the file size (in bytes)
        Text1.Text = Text1.Text & ftp.GetSize(i) & vbCrLf

        Text1.Text = Text1.Text & "--" & vbCrLf
    Next
End If

ftp.Disconnect 

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