Dim miUri As New Uri("ftp://hostIpAddress/LIBname/filename") Dim mirequest As FtpWebRequest mirequest = DirectCast(Net.WebRequest.Create(miUri), FtpWebRequest) miRequest.Credentials = New Net.NetworkCredential(user, password) miRequest.KeepAlive = False miRequest.UseBinary = False miRequest.UsePassive = True miRequest.ContentLength = FileLen("C:\test.txt") miRequest.Method = Net.WebRequestMethods.Ftp.UploadFile Try Dim miStream As System.IO.Stream miStream = miRequest.GetRequestStream() Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\test.txt") miStream.Write(bFile, 0, bFile.Length) miStream.Close() miStream.Dispose() Catch ex As Exception Throw New Exception(ex.Message) End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)