Public Function DisplayFileFromServer(ByVal serverName As String, ByVal _
      dirName as String, ByVal user As String, ByVal pwd As String) As List(Of _
      String)
        Dim FileList As New List(Of String)
        Dim server As String = "ftp://" & serverName & "//" & dirName & "//"
        Dim fwr As FtpWebRequest = FtpWebRequest.Create(server)
        fwr.KeepAlive = True
        fwr.Credentials = New NetworkCredential(user, pwd)
        fwr.Method = WebRequestMethods.Ftp.ListDirectory
        Using sr As New StreamReader(fwr.GetResponse().GetResponseStream())
            While sr.Peek() >= 0
                FileList.Add(sr.ReadLine)
            End While
        End Using
        Return FileList
    End Function