1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Try
Dim locname As String = "C:\Temp\Test.txt"
Dim miUri As String = "ftp://ftp.xxxxxx.fr/Test.txt"
Dim miRequest As Net.FtpWebRequest = Net.WebRequest.Create(miUri)
miRequest.Credentials = New Net.NetworkCredential("zzzz", "xxxx")
miRequest.Method = Net.WebRequestMethods.Ftp.UploadFile
Dim bFile() As Byte = System.IO.File.ReadAllBytes(locname)
Dim miStream As System.IO.Stream = miRequest.GetRequestStream()
miStream.Write(bFile, 0, bFile.Length)
miStream.Close()
miStream.Dispose()
Catch ex As Exception
End Try |
