Imports System.Net
Imports System.Threading
''' <summary>
''' Upload file to FTP Server.
''' </summary>
''' <remarks></remarks>
Private Sub Upload()
Dim fileInf As FileInfo = New FileInfo(Server.MapPath("~/images/ ") & Session("FileName"))
Dim uri As String = ("ftp://" _
+ (ftpServerIP + ("/folder path/" + fileInf.Name)))
Dim reqFTP As FtpWebRequest
' Create FtpWebRequest object from the Uri provided
reqFTP = CType(FtpWebRequest.Create(New Uri((ftp:// + (ftpServerIP + ("//folder path /" + fileInf.Name))))), FtpWebRequest)
' Provide the WebPermission Credintials
reqFTP.Credentials = New NetworkCredential(ftpUserID, ftpPassword)
' By default KeepAlive is true, where the control connection is not closed
' after a command is executed.
reqFTP.KeepAlive = False
' Specify the command to be executed.
reqFTP.Method = WebRequestMethods.Ftp.UploadFile
' Specify the data transfer type.
reqFTP.UseBinary = True
' Notify the server about the size of the uploaded file
reqFTP.ContentLength = fileInf.Length
' The buffer size is set to 2kb
Dim buffLength As Integer = 2048
Dim buff() As Byte = New Byte((buffLength) - 1) {}
Dim contentLen As Integer
' Opens a file stream (System.IO.FileStream) to read the file to be uploaded
Dim fs As FileStream = fileInf.OpenRead
Try
' Stream to which the file to be upload is written
Dim strm As Stream = reqFTP.GetRequestStream
' Read from the file stream 2kb at a time
contentLen = fs.Read(buff, 0, buffLength)
' Till Stream content ends
While (contentLen <> 0)
' Write Content from the file stream to the FTP Upload Stream
strm.Write(buff, 0, contentLen)
contentLen = fs.Read(buff, 0, buffLength)
End While
' Close the file stream and the Request Stream
strm.Close()
fs.Close()
Catch ex As Exception
'MessageBox.Show(ex.Message, "Upload Error")
End Try
End Sub
Join the conversation! Your thoughts help the community grow.