[COLOR=black][FONT=Verdana][COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Upload([COLOR=blue]ByVal[/COLOR] source [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR], [COLOR=blue]ByVal[/COLOR] target [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR], _
[COLOR=blue]ByVal[/COLOR] credential [COLOR=blue]As[/COLOR] NetworkCredential)
[COLOR=blue] Dim[/COLOR] request [COLOR=blue]As[/COLOR] FtpWebRequest = _
[COLOR=blue]DirectCast[/COLOR](WebRequest.Create(target), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = credential
[COLOR=blue]Dim[/COLOR] reader [COLOR=blue]As[/COLOR] [COLOR=blue]New[/COLOR] FileStream(source, FileMode.Open)
[COLOR=blue]Dim[/COLOR] buffer(Convert.ToInt32(reader.Length - 1)) [COLOR=blue]As[/COLOR] [COLOR=blue]Byte[/COLOR]
reader.Read(buffer, 0, buffer.Length)
reader.Close()
request.ContentLength = buffer.Length
[COLOR=blue]Dim[/COLOR] stream [COLOR=blue]As[/COLOR] Stream = request.GetRequestStream
stream.Write(buffer, 0, buffer.Length)
stream.Close()
[COLOR=blue]Dim[/COLOR] response [COLOR=blue]As[/COLOR] FtpWebResponse = [COLOR=blue]DirectCast[/COLOR](request.GetResponse, FtpWebResponse)
MessageBox.Show(response.StatusDescription, [COLOR=maroon]"File Uploaded"[/COLOR])
response.Close()
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR][/FONT][/COLOR]