Get FTP Directory Listing Information

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

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim ftp As New Chilkat.Ftp2()

Dim success As Boolean

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


'  The ListPattern property is our directory listing filter.
'  The default value is "*", which includes everything.
TextBox1.Text = TextBox1.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
        TextBox1.Text = TextBox1.Text & ftp.GetFilename(i) & vbCrLf

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

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


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


TextBox1.Text = TextBox1.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
        TextBox1.Text = TextBox1.Text & ftp.GetFilename(i) & vbCrLf

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

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


ftp.Disconnect()