' set current directory
ftp.ChangeDirectory("/MyData")

' display the current directory to the user
Dim currentDir As String = ftp.GetCurrentDirectory()
Console.WriteLine("Current directory changed to: {0}", currentDir)

' get items within the current directory
Dim currentItems As FtpItemCollection = ftp.GetList()

' get names of items within "/MyData
Dim dataItems As String() = ftp.GetNameList("/MyData")

' get server-specific listing of all ".txt" files in "/MyData"
Dim dataTextFiles As String() = ftp.GetRawList("/MyData/*.txt")

Dim items As FtpItemCollection

' get all items of current directory recursively
' (items from subdirectories are returned as well)
items = ftp.GetItems("*")

' get all ".txt" files of "/MyData" directory only
' (files from subdirectories are not returned)
items = ftp.GetItems("/MyData/*.txt", TraversalMode.MatchFilesShallow)

' get all ".txt" files under "/MyData" directory
' (files from subdirectories are returned as well)
items = ftp.GetItems("/MyData/*.txt", TraversalMode.MatchFilesDeep)

' initialize a file set
Dim fileSet = New Rebex.IO.FileSet("/MyData")
fileSet.Include("Web")
fileSet.Exclude("Web/Images")

' get all items defined by the file set
items = ftp.GetItems(fileSet)

Sub client_ListItemReceived(ByVal sender As Object, ByVal e As FtpListItemReceivedEventArgs)
    ' ignore ale items older than 7 days
    If e.Item.LastWriteTime < DateTime.Now.Date.AddDays(-7) Then
        e.Ignore()
    End If
End Sub

' register ListItemReceived event handler which is raised
' when an item description is received from the server
AddHandler ftp.ListItemReceived, AddressOf client_ListItemReceived

' get items of current directory filtered by the event handler
Dim items As FtpItemCollection = ftp.GetList()

' get server-specific listing of items within the current directory
Dim currentItems As String() = ftp.GetRawList()

' get server-specific listing of text files within the specified directory
Dim textFiles As String() = ftp.GetRawList("/MyData/*.txt")

' simply print the directory listing
Console.WriteLine(String.Join(vbCrLf, currentItems))

Dim items As FtpItemCollection

' find all "*.txt" files in "/MyData" directory only
items = ftp.GetList("/MyData/*.txt")

' find all "*.txt" files in "/MyData" directory and its subdirectories
items = ftp.GetItems("/MyData/*.txt", TraversalMode.MatchFilesDeep)

' create new directory
Dim newDir As String = ftp.CreateDirectory("/MyData/Exports")

' display the result
Console.WriteLine("New directory created: {0}", newDir)

' delete remote directory if it doesn't exist locally
If Not Directory.Exists("C:\MyData\Exports") Then
    ' fails if not empty
    ftp.RemoveDirectory("/MyData/Exports")

    ' notify the user
    ' ...
End If

' delete whole remote directory
' (deletes "/MyData/Temp" directory itself as well)
ftp.Delete("/MyData/Temp", TraversalMode.Recursive)

' delete content of remote directory
' (keep "/MyData" directory itself)
ftp.Delete("/MyData/*", TraversalMode.Recursive)

' delete all ".txt" files in "/MyData"
ftp.Delete("/MyData/*.txt", TraversalMode.MatchFilesShallow)

' rename a remote directory
ftp.Rename("/MyData/A", "/MyData/B")

' move a remote directory
ftp.Rename("/MyData/Exports", "/Backups/Exports")

' check whether a remote directory exists
Dim exists = ftp.DirectoryExists("/MyData/Exports")

If exists Then
    ' prompt the user
    ' ...
End If

' get items in the current directory
Dim items As FtpItemCollection = ftp.GetList()

' example 1: large files first
items.Sort(New FileSystemItemComparer(FileSystemItemComparerType.Length))

' example 2: order by multiple fields
' (directories first, then order by file name)
items.Sort(New MultiComparer(
        New FileSystemItemComparer(FileSystemItemComparerType.FileType),
        New FileSystemItemComparer(FileSystemItemComparerType.Name)))

Dim dt = DateTime.Now.Date.AddDays(-7)

' get all ".txt" files not older than 7 days sorted by path
' from current directory using LINQ
Dim files1 =
    ftp.GetList("*.txt").Cast(Of FtpItem).
    Where(Function(item) item.IsFile AndAlso item.LastWriteTime > dt).
    OrderBy(Function(item) item.Path)

' get all ".txt" files not older than 7 days sorted by path
' anywhere under current directory using LINQ to SQL
Dim items = ftp.GetItems("*.txt", TraversalMode.MatchFilesDeep)
Dim files2 =
    From item As FtpItem In items
    Where item.IsFile AndAlso item.LastWriteTime > dt
    Order By item.Path
    Select item

' sample of custom directory item parser method
Private Sub MyDirectoryItemParser(ByVal sender As Object,
                                ByVal e As FtpItemParseEventArgs)
    ' if the item has a valid name, return the original item
    If Not e.Item Is Nothing And Not String.IsNullOrEmpty(e.Item.Name) Then
        Return
    End If

    ' a very simple sample of parsing item from the raw list
    Dim parsedName = e.RawLine.Substring(39)
    Dim parsedType = FtpItemType.File
    If e.RawLine.Contains("<DIR>") Then
        parsedType = FtpItemType.Directory
    End If

    ' create a new item and fill it with parsed values
    e.Item = New FtpItem(parsedName, 0, parsedType)
End Sub

' register the custom parser to the FtpItem class
AddHandler FtpItem.ItemParse, AddressOf MyDirectoryItemParser

' get the directory listing using the new parser
For Each item In ftp.GetList()
    Console.WriteLine("{0} dir={1}", item.Name, item.IsDirectory)
Next