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