FTP ganze Verzeichnisse runterladen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Basis2.

    FTP ganze Verzeichnisse runterladen

    Hallo,
    ich bin gerade dabei ein Programm zu schreiben, was alle 3 Tage einen kompletten Backup von einem FTP-Server mit allen Unterverzeichnissen und Dateien erstellt.
    Nun gibt es natürlich das Problem, das FTP es nicht unterstützt, ganze Verzeichnisse runterzuladen. Ich habe auch schon die letzte Woche damit verbracht im Internet danach zu suchen und habe eigene Codes zusammengestückelt. Ich habe auch mehrmals damit angefangen, den Code neu zu schreiben und das hier ist mir bisher am besten gelungen(er ist sehr durcheinander gewürfelt da dort sehr viele "Experimente" stattfanden):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Web
    3. Imports System.IO
    4. Public Const ftplink As String = "ftp://ftp.host.tld/" 'der link zum FTP-Server
    6. Dim all As New ArrayList 'Auflistung aller Dateien in einem Verzeichnis
    7. Dim verz As New ArrayList ' Auflistung aller Verzeichnisse in einem Verzeichnis
    8. Dim files As New ArrayList ' Auflistung aller Dateien in einem Verzeichnis
    9. Dim fortschr As New ArrayList ' Auflistung aller bereits gedownloadeten Dateien
    10. Dim verzfortschr As New ArrayList ' Auflistung aller Verzeichnisse, in denen schon alles heruntergeladen ist (natürlich alle Dateien + NUR 1 Verzeichnis)
    11. Dim akturl As String = ftplink ' Der Aktuelle Pfad, wo dateien heruntergeladen werden bzw. wo in den Verzeichnissen nachgeckut wird, und dementschprechend mit dem unterverzeichnis verlängert wird
    12. Dim gonewverz As Boolean = False ' wenn dies "true" ist, bestätigt dies, dass das Verzeichnis, was in "akturl" steht, komplett fertig heruntergeladen ist (aber NUR 1 Verzeichnis) und das es doch in dem
    13. ' vorherigen Pfad nach Verzeichnissen gucken soll, die noch nicht heruntergeladen wurden und diese herunterzuladen. Wenn alle heruntergeladen wurden ist dies wieder
    14. ' "true" und es wird noch ein Verzeichnis davor geschaut.
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. download_main()
    18. End Sub
    20. Sub list(ByVal URL As String, ByRef alles As ArrayList, ByRef dateien As ArrayList, ByRef verzeichnisse As ArrayList)
    21. alles.Clear()
    22. Dim requ As FtpWebRequest = Nothing
    23. Dim resp As FtpWebResponse = Nothing
    24. Dim reader As StreamReader = Nothing
    25. Try
    26. requ = CType(WebRequest.Create(URL), WebRequest)
    27. requ.Credentials = New NetworkCredential("username", "passwort")
    28. requ.Method = WebRequestMethods.Ftp.ListDirectory
    29. resp = CType(requ.GetResponse(), FtpWebResponse)
    30. reader = New StreamReader(resp.GetResponseStream())
    31. While (reader.Peek() > -1)
    32. alles.Add(reader.ReadLine())
    33. End While
    34. Finally
    35. If reader IsNot Nothing Then reader.Close()
    36. End Try
    37. alles.Remove(".")
    38. alles.Remove("..")
    39. alles.Remove(".ftpquota")
    41. Dim i As Integer
    42. For i = 0 To alles.Count - 1
    43. If alles(i) Like "*.*" Then
    44. dateien.Add(alles(i))
    45. Else
    46. verzeichnisse.Add(alles(i))
    47. End If
    48. Next
    49. End Sub
    51. Sub download_main()
    52. list(akturl, all, files, verz)
    53. download_filesfrompath(akturl, files)
    55. If Not akturl = ftplink Then
    56. Dim comp As Boolean = True
    57. For i = 0 To verz.Count - 1
    58. For Each item In verzfortschr
    59. If Not item = verz(i) Then
    60. comp = False
    61. End If
    62. Next
    63. Next
    65. If comp = True Then
    66. 'aktionen, wenn alles fertig
    67. For i = akturl.Count - 2 To 0 Step -1
    68. If akturl.Chars(i) = "/" Then
    69. akturl.Remove(i + 1)
    70. gonewverz = True
    71. download_main()
    72. Exit Sub
    73. End If
    74. Next
    75. End If
    76. End If
    80. Dim look As Boolean = True
    83. For i = 0 To verz.Count - 1
    84. look = True
    85. For Each item In verzfortschr
    86. If item = verz(i) Then
    87. look = False
    88. End If
    89. Next
    90. If look = True Then
    91. 'aktionen, wenn noch nicht gedownloaded
    92. akturl &= verz(i) & "/"
    93. verzfortschr.Add(verz(i))
    94. download_main()
    95. Exit Sub
    96. End If
    97. Next
    98. End Sub
    100. Sub download_filesfrompath(ByVal FTPverz As String, ByVal files As ArrayList)
    101. Directory.CreateDirectory((Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\backup\" & akturl.Replace(ftplink, "")).Replace("/", "\"))
    102. Dim download As Boolean = True
    103. Dim i As Integer = 0
    104. If Not Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\backup") Then
    105. Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\backup")
    106. End If
    108. For i = 0 To files.Count - 1
    109. download = True
    110. For Each item In fortschr
    111. If item = files(i) Then
    112. download = False
    113. End If
    114. Next
    115. If download = True Then
    116. ftpdownload((Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\backup\" & akturl.Replace(ftplink, "")).Replace("/", "\") & "\" & files(i), akturl & files(i))
    117. fortschr.Add(files(i))
    118. End If
    119. Next
    120. End Sub
    122. Sub ftpupload(ByVal filepath As String, ByVal uploadlink As String)
    123. Dim client As New WebClient
    124. Dim newuplink As String
    125. newuplink = Replace(uploadlink, " ", "%20")
    126. client.Credentials = New NetworkCredential("username", "passwort")
    127. client.UploadFile(newuplink, filepath)
    128. End Sub
    130. Sub ftpdownload(ByVal filepath As String, ByVal downloadlink As String)
    131. Dim client As New WebClient
    132. client.Credentials = New NetworkCredential("username", "passwort")
    133. client.DownloadFile(downloadlink, filepath)
    134. End Sub

    Doch wenn es anfängt, ein Unterverzeichnis runterzuladen, kommt bei "resp"(FTPWebResponse) in dem Sub "list" in einem Laufzeitfehler die StatusDiscription "550 Can't change directory to Verzeichnis/123/abc: No such file or directory" und die ResponseURI ist "{ftp.host.tld/Verzeichnis/123/abc/}" ?(
    Aber sonst ist in jedem Verzeichnis das erste Verzeichnis + alle Dateien erfolgreich heruntergeladen worden.

    Ich hoffe ihr könnt mir helfen ^^
    Danke schon mal im voraus.

    OK danke für deine Antwort! Hat mir sehr weitergeholfen denn ich habe es jetzt :thumbsup:
    Jetzt habe ich es so gemacht, das in einem Array alle Dateien aufgelistet werden und in einem anderen alle Verzeichnisse. Es wird alles mit dem Direkten link gespeichert!
    Hier ist der Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Web
    3. Imports System.IO
    5. Public Const ftplink As String = "ftp://ftp.host.tld/"
    6. Dim all As New ArrayList
    7. Dim verz As New ArrayList
    8. Dim files As New ArrayList
    9. Dim allverz As New ArrayList
    10. Dim allfiles As New ArrayList
    11. Dim akturl As String = ftplink
    12. Dim verzcounter As Integer = 0
    15. Sub list(ByVal URL As String, ByRef alles As ArrayList, ByRef dateien As ArrayList, ByRef verzeichnisse As ArrayList)
    16. alles.Clear()
    17. Dim requ As FtpWebRequest = Nothing
    18. Dim resp As FtpWebResponse = Nothing
    19. Dim reader As StreamReader = Nothing
    20. Try
    21. requ = CType(WebRequest.Create(URL), WebRequest)
    22. requ.Credentials = New NetworkCredential("username", "passwort")
    23. requ.Method = WebRequestMethods.Ftp.ListDirectory
    24. resp = CType(requ.GetResponse(), FtpWebResponse)
    25. reader = New StreamReader(resp.GetResponseStream())
    26. While (reader.Peek() > -1)
    27. alles.Add(reader.ReadLine())
    28. End While
    29. Finally
    30. If reader IsNot Nothing Then reader.Close()
    31. End Try
    32. alles.Remove(".")
    33. alles.Remove("..")
    34. alles.Remove(".ftpquota")
    36. Dim i As Integer
    37. For i = 0 To alles.Count - 1
    38. If alles(i) Like "*.*" Then
    39. dateien.Add(alles(i))
    40. Else
    41. verzeichnisse.Add(alles(i))
    42. End If
    43. Next
    44. End Sub
    46. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    47. download()
    48. End Sub
    50. Sub download()
    51. list(akturl, all, files, verz)
    52. For Each item In verz
    53. If Not allverz.Contains(akturl & item & "/") Then
    54. allverz.Add(akturl & item & "/")
    55. End If
    56. Next
    57. For Each item In files
    58. If Not allfiles.Contains(akturl & item) Then
    59. allfiles.Add(akturl & item)
    60. End If
    61. Next
    62. verz.Clear()
    63. files.Clear()
    64. If Not verzcounter > allverz.Count - 1 Then
    65. akturl = allverz(verzcounter)
    66. verzcounter += 1
    67. download()
    68. Else
    69. download_files()
    70. End If
    72. End Sub
    74. Sub download_files()
    75. Dim creationpath As String
    76. Dim path As String
    77. For Each item In allverz
    78. creationpath = item.ToString.Replace("/", "\").Remove(0, ftplink.Count)
    79. creationpath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\backup\" & creationpath
    80. If Not Directory.Exists(creationpath) Then
    81. Directory.CreateDirectory(creationpath)
    82. End If
    83. Next
    85. For Each item In allfiles
    86. path = item.ToString.Replace("/", "\").Remove(0, ftplink.Count)
    87. path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\backup\" & path
    88. ftpdownload(path, item)
    89. Next
    90. End Sub
    92. Sub ftpdownload(ByVal filepath As String, ByVal downloadlink As String) 'ByVal username As String, ByVal password As String)
    93. Dim client As New WebClient
    94. client.Credentials = New NetworkCredential("username", "passwort")
    95. client.DownloadFile(downloadlink, filepath)
    96. End Sub

Facebook
Telefonspende