Get FTP Directory Listing Information

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

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

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()