Function ListFiles(ByVal URI As Uri, ByVal Credentials As Net.NetworkCredential) As String()
            Dim List As New List(Of String)
            WebRequest = WebRequest.Create(URI)
            WebRequest.Credentials = Credentials
            WebRequest.Method = Net.WebRequestMethods.Ftp.ListDirectoryDetails
            WebResponse = WebRequest.GetResponse
            Dim Stream As New IO.StreamReader(WebResponse.GetResponseStream, System.Text.Encoding.ASCII)
            Do Until Stream.EndOfStream
                List.Add(Stream.ReadLine)
            Loop
            Return List.ToArray
    End Function