'Create new ftp request object
        Dim ftprequest As FtpWebRequest
        Dim ftpresponse As FtpWebResponse
        Dim ftpreader As StreamReader
        ftpreader = Nothing

        'Get the maximum amount of folders to recurse through
        Dim files As New ArrayList

        'Iterate through all root folders to find contact contact document storage folder
        ftprequest = DirectCast(WebRequest.Create("ftp://ftp.******.com/****Store/"), FtpWebRequest)
        ftprequest.Credentials = New NetworkCredential("****", "****")
        ftprequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails

        'Set stream reader object and assign to ftp request
        ftpresponse = ftprequest.GetResponse()
        ftpreader = New StreamReader(ftpresponse.GetResponseStream)

        'Read data as it comes in line by line - recurse to get filename only from detailed list
        While ftpreader.Read And ftpresponse.StatusCode <> FtpStatusCode.ClosingData And ftpresponse.StatusCode <> FtpStatusCode.ClosingControl And ftpreader.EndOfStream = False
            files.Add(ftpreader.ReadLine)
        End While