ASP.NET

silentspeaker wrote:

what is it

Private Function UploadToFTP(ByVal fileToUpload As HttpPostedFile) As Boolean
   Try
      Dim uploadUrl As String = "ftp://........................."
      Dim uploadFileName As String = fileToUpload.FileName
      
      Using streamObj As Stream = fileToUpload.InputStream
         Dim buffer As [Byte]() = New [Byte](fileToUpload.ContentLength - 1) {}
         streamObj.Read(buffer, 0, buffer.Length)
      End Using
      
      Dim ftpUrl As String = String.Format("{0}/{1}", uploadUrl, uploadFileName)
      Dim requestObj As FtpWebRequest = TryCast(FtpWebRequest.Create(ftpUrl), FtpWebRequest)
      requestObj.Method = WebRequestMethods.Ftp.UploadFile
      requestObj.Credentials = New NetworkCredential("UserID", "Password")
      
      Using requestStream As Stream = requestObj.GetRequestStream()
         requestStream.Write(buffer, 0, buffer.Length)
         requestStream.Flush()
      End Using
      
      Using responseObj As FtpWebResponse = TryCast(requestObj.GetResponse(), FtpWebResponse)
         ' TODO: Look at responseObj.StatusCode to see if the upload succeeded
      End Using
      
      Return True
      
   Catch ex As Exception
      Return False
   End Try
End Function

HTTP Error 404.13 - Not Found
The request filtering module is configured to deny a request that exceeds the request content length.