(VB.NET) Get FTP Directory Listing Information

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

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim ftp As New Chilkat.Ftp2

ftp.Hostname = "ftp.example.com"
ftp.Username = "login"
ftp.Password = "password"

' Connect and login to the FTP server.
Dim success As Boolean = ftp.Connect()
If (success <> True) Then
    Debug.WriteLine(ftp.LastErrorText)
    Exit Sub
End If


' The ListPattern property is our directory listing filter.
' The default value is "*", which includes everything.
Debug.WriteLine(ftp.ListPattern)

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

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

        ' Display the filename
        Debug.WriteLine(ftp.GetFilename(i))

        ' Display the file size (in bytes)
        Debug.WriteLine(ftp.GetSize(i))

        ' Is this a sub-directory?
        If (ftp.GetIsDirectory(i) = True) Then
            Debug.WriteLine(".. this is a sub-directory")
        End If


        Debug.WriteLine("--")
    Next
End If


Debug.WriteLine("-----------------------------------")

' Only files and directories
' matching the ListPattern are returned.
ftp.ListPattern = "*.asp"
n = ftp.GetDirCount()
If (n < 0) Then
    Debug.WriteLine(ftp.LastErrorText)
    Exit Sub
End If

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

        ' Display the filename
        Debug.WriteLine(ftp.GetFilename(i))

        ' Display the file size (in bytes)
        Debug.WriteLine(ftp.GetSize(i))

        Debug.WriteLine("--")
    Next
End If


success = ftp.Disconnect()