FTP Explorer mit ListView oder TreeView

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von passive.

    FTP Explorer mit ListView oder TreeView

    Hallo,
    Ich möchte ein FTP Explorer in ein Program einbauen aber habe leider Keine Ahnung wie.
    Ich habe etwas im Inet gefunden aber es funktioniert leider nicht.
    Hier:

    Quellcode

    1. Imports System.Net
    2. Imports System.IO
    3. Public Class MainForm
    5. Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. txtServer.Select()
    7. End Sub
    9. Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
    10. tvServer.Nodes.Item(0).Collapse()
    11. LoadFTPRemote(txtServer.Text, tvServer)
    12. End Sub
    14. Public Sub LoadFTPRemote(ByVal dirpath As String, eTree As TreeView)
    15. eTree.Nodes.Item(0).Nodes.Clear()
    16. eTree.BeginUpdate()
    17. Dim request As FtpWebRequest = DirectCast(WebRequest.Create(dirpath), FtpWebRequest)
    18. request.Method = WebRequestMethods.Ftp.ListDirectory
    19. request.Credentials = New NetworkCredential(txtUsername.Text, txtPassword.Text)
    20. Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
    21. Dim responseStream As Stream = response.GetResponseStream()
    22. Dim reader As New StreamReader(responseStream)
    23. Do While reader.Peek() >= 0
    24. Dim nD As TreeNode = New TreeNode(reader.ReadLine())
    25. eTree.Nodes.Item(0).Nodes.Add(nD)
    26. Loop
    27. reader.Close()
    28. response.Close()
    29. eTree.Nodes.Item(0).Expand()
    30. eTree.EndUpdate()
    31. End Sub
    33. Private Sub tvServer_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles tvServer.AfterExpand
    34. tvServer.BeginUpdate()
    35. Dim Node As TreeNode = e.Node
    36. For Each CNode As TreeNode In Node.Nodes
    37. Dim PathBuilder As String = txtServer.Text & ProperRemoteLink(CNode.FullPath)
    38. If Not Path.HasExtension(PathBuilder) Then
    39. CNode.Nodes.Clear()
    40. Dim request As FtpWebRequest = DirectCast(WebRequest.Create(PathBuilder), FtpWebRequest)
    41. request.Method = WebRequestMethods.Ftp.ListDirectory
    42. request.Credentials = New NetworkCredential(txtUsername.Text, txtPassword.Text)
    43. Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
    44. Dim responseStream As Stream = response.GetResponseStream()
    45. Dim reader As New StreamReader(responseStream)
    46. Dim strList As New List(Of String)
    47. Do While reader.Peek() >= 0
    48. Dim xNod As TreeNode = New TreeNode(IO.Path.GetFileName(reader.ReadLine()))
    49. CNode.Nodes.Add(xNod)
    50. Loop
    51. reader.Close()
    52. response.Close()
    53. End If
    54. Next
    55. tvServer.EndUpdate()
    56. End Sub
    58. Public Function ProperRemoteLink(ByVal input As String) As String
    59. Dim output As String = input
    60. If input.StartsWith("FTP Server") Then output = input.ToString.Remove(0, 10)
    61. Return output
    62. End Function
    64. Private Sub tvServer_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles tvServer.AfterSelect
    65. lblStatus.Text = txtServer.Text & ProperRemoteLink(e.Node.FullPath)
    66. End Sub
    68. End Class

    passive schrieb:

    Ich möchte ein FTP Explorer in ein Program einbauen aber habe leider Keine Ahnung wie.
    Ich tät sagen: Vergisses.
    Das ist für einen Einsteiger ein viel zu anspruchsvolles Projekt.
    Auch mit Unterstützung des Forums - man müsste dir dabei so viel helfen und erklären, dass mans viel einfacher selbst schriebe und dir fertig gäbe.