Dim localFolderAndFile As String = "C:\Temp\fileName.pdf"
Dim remoteFolder As String = "/Test3/"
Dim remoteFolderAndFile As String = "/Test3/fileName.pdf"
Dim host As String = "ftp://hostname.com"
Dim username As String = "UserName"
Dim password As String = "Password"
Dim fwrRequest As System.Net.FtpWebRequest
Dim fwrResponse As System.Net.WebResponse
Try
fwrRequest = DirectCast(System.Net.WebRequest.Create(host & remoteFolder), System.Net.FtpWebRequest)
fwrRequest.Credentials = New System.Net.NetworkCredential(username, password)
fwrRequest.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
fwrResponse = fwrRequest.GetResponse
Catch ex As Exception
' already exists
End Try
' upload file
fwrRequest = DirectCast(System.Net.WebRequest.Create(host & remoteFolderAndFile), System.Net.FtpWebRequest)
fwrRequest.Credentials = New System.Net.NetworkCredential(username, password)
fwrRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim bFile() As Byte = System.IO.File.ReadAllBytes(localFolderAndFile)
Dim ioStream As System.IO.Stream = fwrRequest.GetRequestStream()
ioStream.Write(bFile, 0, bFile.Length)
ioStream.Close()
ioStream.Dispose()
Thanks, I tried many ways, but your code works perfectly.
ReplyDeleteAfter 4 years the code works. Thanks
ReplyDelete