01.Public Class Form1
02.
03. Private Sub Btn_SendFtp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_SendFtp.Click
04. Try
05.
07.
08.
09. Request.Credentials = New System.Net.NetworkCredential("user", "password")
10. Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
11.
12.
13. Dim File() As Byte = System.IO.File.ReadAllBytes("c:\myfile.text")
14.
15.
16. Dim Strz As System.IO.Stream = Request.GetRequestStream()
17. Strz.Write(File, 0, File.Length)
18.
19. Strz.Close()
20. Strz.Dispose()
21.
22. MessageBox.Show("Upload Done", "Messsage")
23.
24. Catch ex As Exception
25. MessageBox.Show(ex.Message, "Messsage")
26. End Try
27.
28. End Sub
29.
30. Private Sub Btn_LoadFtp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_LoadFtp.Click
31. Try
33.
34.
35. MessageBox.Show("Download Done", "Messsage")
36.
37. Catch ex As Exception
38. MessageBox.Show(ex.Message, "Messsage")
39. End Try
40. End Sub
41.
42. Private Sub Btn_DelFtp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_DelFtp.Click
43. Try
44.
46.
47.
48. Request.Credentials = New System.Net.NetworkCredential("user", "password")
49. Request.Method = System.Net.WebRequestMethods.Ftp.DeleteFile
50. Request.GetResponse()
51.
52. MessageBox.Show("Delete Done", "Messsage")
53.
54. Catch ex As Exception
55. MessageBox.Show(ex.Message, "Messsage")
56. End Try
57. End Sub
58.End Class
