How to: Upload files with FTP using VB.NET

Written in VB.NET, this sample shows how to upload a file to an FTP server.
Sub FtpUploadFileToServer(ByVal pServer As String, _ ByVal pUploadPathAndFileName As String, _ Optional ByVal pTargetPath As String = "", _ Optional ByVal pTargetFileName As String = "", _ Optional ByVal pUserName As String = "", _ Optional ByVal pPassword As String = "", _ Optional ByVal pPort As Integer = 21, _ Optional ByVal pUsePassive As Boolean = False) Dim objUploadStream As FileStream = Nothing Dim objRequest As FtpWebRequest = Nothing Dim objResponse As FtpWebResponse = Nothing Dim objRequestStream As Stream = Nothing Try objUploadStream = File.OpenRead(pUploadPathAndFileName) Dim bytBuffer(CType(objUploadStream.Length, Integer)) As Byte objUploadStream.Read(bytBuffer, 0, bytBuffer.Length) If pTargetFileName.Length = 0 Then pTargetFileName = IO.Path.GetFileName(objUploadStream.Name) End If Dim strUrl As String = String.Format("ftp://{0}:{1}/{2}/{3}", _ pServer, pPort, pTargetPath, pTargetFileName) objRequest = CType(FtpWebRequest.Create(strUrl), FtpWebRequest) If pUserName.Length > 0 And pPassword.Length > 0 Then objRequest.Credentials = New NetworkCredential(pUserName, pPassword) End If objRequest.Method = WebRequestMethods.Ftp.UploadFile objRequest.Proxy = Nothing objRequest.KeepAlive = False objRequest.UsePassive = pUsePassive objRequestStream = objRequest.GetRequestStream() objRequestStream.Write(bytBuffer, 0, bytBuffer.Length) objRequestStream.Close() objResponse = CType(objRequest.GetResponse, FtpWebResponse) MsgBox(objResponse.StatusDescription) Catch ex As Exception MsgBox(ex.Message) Finally Try If Not objRequestStream Is Nothing Then objRequestStream.Close() End If If Not objUploadStream Is Nothing Then objUploadStream.Close() objUploadStream.Dispose() End If If Not objRequest Is Nothing Then objRequest = Nothing End If Catch ex As Exception MsgBox(ex.Message) End Try End Try End Sub
Here is a sample call to the procedure:
Call FtpUploadFileToServer("75.125.113.121", "c:\file-to-upload-to-server.txt", "ftp-directory", , "ftp-server-login", "ftp-server-password", , )

Customize blog design to seamlessly match website

I just customized the URL and the template of this blog for FREE. Notice the seamless menu as you enter/exit my website and blog? Contact me to do the same and match your blog to your website.