Как определить на FTP сервере последний модифицированный файл?

Imports System.IO
 
Public Class Form1
 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        Dim request As Net.FtpWebRequest = Net.WebRequest.Create("ftp://")
        request.Credentials = New Net.NetworkCredential("Anonymous", "")
        request.Method = Net.WebRequestMethods.Ftp.ListDirectoryDetails
        Dim response As Net.FtpWebResponse = request.GetResponse()
        Dim responseStream As Stream = response.GetResponseStream()
        Dim reader As StreamReader = New StreamReader(responseStream)
        My.Computer.FileSystem.WriteAllText("D:\Test.txt", reader.ReadToEnd, True)
    End Sub
End Class

Dim fi = files.OrderBy(Function(f) File.GetCreationTime(f))

Dim ftpFile As FtpFileInfo = Ftp.GetFiles("ftp://ftp.fu-berlin.de/misc/movies/database/") _
    .OrderByDescending(Function(f) f.LastWriteTime) _
    .FirstOrDefault()
If ftpFile IsNot Nothing Then
    Dim name As String = ftpFile.Name
End If

Dim ftpRequest As FtpWebRequest
        Dim ftpResponse As FtpWebResponse
        ftpRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        ftpResponse = CType(ftpRequest.GetResponse(), FtpWebResponse)
        Dim files As String = ""
        Dim sr As StreamReader = New StreamReader(ftpResponse.GetResponseStream(), System.Text.Encoding.ASCII)
        files = sr.ReadToEnd()
        sr.Close()
        ftpResponse.Close()

        ...
        Dim objects As New List(Of FtpObjectInfo)
        Dim request As FtpWebRequest = WebRequest.Create(address)
        request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        request.Credentials = new NetworkCredential ("anonymous","anonymous@anonymous.com")
        request.Timeout = 5 * 1000 ' 5 sec
        ...

        Public Shared Function GetDirectoriesAndFiles(address As String) As FtpObjectInfo()
            On Error GoTo erx
            If Not address.EndsWith("/") Then address &= "/"
 
            Dim objects As New List(Of FtpObjectInfo)
            Dim request As FtpWebRequest = WebRequest.Create(address)
            request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
            request.Credentials = New NetworkCredential("anonymous", "anonymous@anonymous.com")
            request.Timeout = 1000
            Using response As FtpWebResponse = request.GetResponse()
                Using responseStream As Stream = response.GetResponseStream()
                    Using reader As New StreamReader(responseStream)
 
                        Do While reader.Peek() >= 0
                            Dim responseLine() As String = reader.ReadLine().Split({" "}, StringSplitOptions.RemoveEmptyEntries)
 
                            Dim itemName As String = responseLine(8)
 
                            Dim itemDate As DateTime
                            If responseLine(7).Contains(":") Then
                                itemDate = DateTime.ParseExact(responseLine(5) & " " & responseLine(6) & " " & DateTime.Now.Year & " " & responseLine(7), "MMM d yyyy HH:mm", CultureInfo.InvariantCulture, DateTimeStyles.RoundtripKind)
                            Else
                                itemDate = DateTime.ParseExact(responseLine(5) & " " & responseLine(6) & " " & responseLine(7), "MMM d yyyy", CultureInfo.InvariantCulture, DateTimeStyles.RoundtripKind)
                            End If
 
                            If responseLine(0).StartsWith("d") Then
                                objects.Add(New FtpDirectoryInfo With { _
                                    .FullName = address + itemName + "/", _
                                    .Name = itemName, _
                                    .LastWriteTime = itemDate _
                                })
                            Else
                                Dim itemLength As Long = Long.Parse(responseLine(4))
                                objects.Add(New FtpFileInfo With { _
                                    .FullName = address + itemName, _
                                    .Name = itemName, _
                                    .LastWriteTime = itemDate, _
                                    .Length = itemLength _
                                })
                            End If
                        Loop
                    End Using
                End Using
            End Using
 
            Return objects.ToArray()
erx:        MsgBox(Err.Description) : End
        End Function

Dim responseLine() As String = reader.ReadLine().Split({" "}, 9, StringSplitOptions.RemoveEmptyEntries)