Get FTP Directory Listing Information

Download Chilkat FTP2 ActiveX

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