(Xojo Plugin) Get Number of FIles in Directory, not including sub-directories

Xojo Plugin example demonstrating how to get the number of files in a directory not including sub-directories.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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
success = ftp.Connect()
If (success <> True) Then
    System.DebugLog(ftp.LastErrorText)
    Return
End If

// The ListPattern property is our directory listing filter.
// The default value is "*", which includes everything.
System.DebugLog(ftp.ListPattern)

// Fetch the current remote directory contents by
// calling GetDirCount
Dim i As Int32
Dim n As Int32
n = ftp.GetDirCount()
If (n < 0) Then
    System.DebugLog(ftp.LastErrorText)
    Return
End If

If (n > 0) Then
    // Loop over the directory contents, incrementing the count
    // each time it is NOT a directory.
    Dim fileCount As Int32
    fileCount = 0
    For i = 0 To n - 1

        // Is this NOT a sub-directory?
        If (ftp.GetIsDirectory(i) <> True) Then
            fileCount = fileCount + 1
            // Display the filename
            System.DebugLog(ftp.GetFilename(i))
        End If

    Next

    System.DebugLog("Total number of files = " + Str(fileCount))
End If

success = ftp.Disconnect()