Hi, Rahul Maurya
Use following code:
Imports System.net
Function FileTransfer() As BooleanDim IsTransfer AsBooleanDim WebRequestObj As FtpWebRequest Dim FileStreamObj As FileStream Dim FileLength AsIntegerDim FileNameDestination AsStringTry
WebRequestObj = FtpWebRequest.Create("ftp file path")
WebRequestObj.Method = WebRequestMethods.Ftp.UploadFile WebRequestObj.Credentials =New NetworkCredential("User Name", "Password")FileStreamObj = File.OpenRead("File path on hosted server")FileLength = FileStreamObj.Length Dim buffer AsByte() = NewByte(FileLength) {}FileStreamObj.Read(buffer, 0, buffer.Length)FileStreamObj.Close()FileStreamObj =NothingWebRequestObj.GetRequestStream().Write(buffer, 0, buffer.Length)WebRequestObj =NothingIsTransfer =TrueCatch ex As ExceptionIsTransfer =FalseEnd TryReturn IsTransfer EndFunction
Posted On:
29-Sep-2014 02:23