Const username As String = "user"
Const password As String = "password"
Dim URI As String = "ftp://192.168.10.10/" & filename
 
Dim request2 As FtpWebRequest = DirectCast(FtpWebRequest.Create(URI), FtpWebRequest)
request2.Credentials = New NetworkCredential(username, password)
request2.Method = WebRequestMethods.Ftp.DownloadFile
Dim response2 As FtpWebResponse = DirectCast(request2.GetResponse(), FtpWebResponse)
Dim responseStream As Stream = response2.GetResponseStream()
 
Dim reader As New StreamReader(responseStream)
 
Dim buffer As [Byte]() = New [Byte](2046) {}
 
Dim memstream As New MemoryStream
 
Dim read As Integer = 0
Do
    read = responseStream.Read(buffer, 0, buffer.Length)
    'responseStream.Write(buffer, 0, read)
    memstream.Write(buffer, 0, read)
Loop While read <> 0
 
Response.AddHeader("Content-Disposition", "inline; filename=" + filename)
Response.ContentType = "Application/pdf"
Response.BinaryWrite(memstream.ToArray)
Response.Flush()
Response.End()
 
responseStream.Close()
memstream.Flush()
memstream.Close()
responseStream.Close()