Klasse zum rekursiven Kopieren von Verzeichnissen

    • VB.NET

    Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Nofear23m.

      Klasse zum rekursiven Kopieren von Verzeichnissen

      Moin,

      da ich gerade an einem Updater bin, benötigte ich eine Funktion zum rekursiven Kopieren von Dateien. Ich denke auch manch anderer wird sie gut gebrauchen können.
      Optional kann man zudem ein Modus angeben welche Dateien in das Zielverzeichnis kopiert werden sollen.

      OverwritesAll = Alle überschreiben
      OnlyNewFiles = Nur wenn die Datei am Zielort noch nicht existiert
      OverwriteNewDate = Nur wenn die Datei vom Quellort ein aktuelleres Datum hat als die Datei am Zielort

      Zudem verfügt sie über ein Event, welches ausgeführt wird, nachdem ein Verzeichnis erstell oder eine Datei kopiert wurde.
      Hierbei kann man direkt den aktuellen Status ausgeben lassen. Jedoch werden die Logs auch in eine Liste geschrieben und wird als Rückgabe der Funktion zurückgegeben.

      clsFilesystem.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.IO
      3. Public Class Filesystem
      4. Private Report As New List(Of CopyReport)
      6. Public Event Update(ByVal Report As CopyReport)
      8. Public Enum CopyMode
      9. OverwritesAll = 0
      10. OverwriteNewDate = 1
      11. OnlyNewFiles = 2
      12. End Enum
      14. Public Function CopyRecursive(ByVal SourcePath As String, ByVal DestinationPath As String) As List(Of CopyReport)
      15. Return CopyRecursiveMethode(SourcePath, DestinationPath, CopyMode.OverwritesAll)
      16. End Function
      18. Public Function CopyRecursive(ByVal SourcePath As String, ByVal DestinationPath As String, ByVal Mode As CopyMode) As List(Of CopyReport)
      19. Return CopyRecursiveMethode(SourcePath, DestinationPath, Mode)
      20. End Function
      22. Private Function CopyRecursiveMethode(ByVal SourcePath As String, ByVal DestinationPath As String, ByVal CopyMode As CopyMode) As List(Of CopyReport)
      23. Dim DirInfo As New DirectoryInfo(SourcePath)
      24. Dim Directories As List(Of DirectoryInfo) = DirInfo.GetDirectories.ToList
      25. Dim Files As List(Of FileInfo) = DirInfo.GetFiles.ToList
      27. For Each oDir As DirectoryInfo In Directories
      28. Dim NewDestinationPath As String = Path.Combine(DestinationPath, oDir.Name)
      29. Dim ReportClass As New CopyReport
      31. If Not Directory.Exists(NewDestinationPath) Then
      32. Directory.CreateDirectory(NewDestinationPath)
      33. ReportClass.Status = CopyReport.FileStatus.CreateDir
      34. ReportClass.Message = NewDestinationPath
      36. Report.Add(ReportClass)
      37. RaiseEvent Update(ReportClass)
      38. End If
      40. CopyRecursiveMethode(oDir.FullName, NewDestinationPath, CopyMode)
      41. Next
      43. For Each oFile As FileInfo In Files
      44. Dim ReportClass As New CopyReport
      45. Dim NewFilename As String = Path.Combine(DestinationPath, oFile.Name)
      46. Dim Overwrite As Boolean = False
      47. Dim CopyFile As Boolean = False
      49. Select Case CopyMode
      50. Case Filesystem.CopyMode.OverwritesAll
      51. Overwrite = True
      52. CopyFile = True
      53. ReportClass.Status = CopyReport.FileStatus.Copy
      54. Case Filesystem.CopyMode.OnlyNewFiles
      55. If Not File.Exists(NewFilename) Then
      56. CopyFile = True
      57. ReportClass.Status = CopyReport.FileStatus.Copy
      58. End If
      59. Case Filesystem.CopyMode.OverwriteNewDate
      60. If File.Exists(NewFilename) Then
      61. If FileDateTime(oFile.FullName) > FileDateTime(NewFilename) Then
      62. Overwrite = True
      63. CopyFile = True
      64. ReportClass.Status = CopyReport.FileStatus.Update
      65. End If
      66. Else
      67. Overwrite = True
      68. CopyFile = True
      69. ReportClass.Status = CopyReport.FileStatus.Copy
      70. End If
      71. End Select
      73. Try
      74. If CopyFile Then
      75. File.Copy(oFile.FullName, NewFilename, Overwrite)
      76. ReportClass.Message = NewFilename
      77. End If
      78. Catch ex As Exception
      79. ReportClass.Status = CopyReport.FileStatus.CopyError
      80. ReportClass.Message = ex.Message & "[" & NewFilename & "]"
      81. End Try
      83. If Not ReportClass.Message = "" Then
      84. Report.Add(ReportClass)
      85. RaiseEvent Update(ReportClass)
      86. End If
      87. Next
      89. Return Report
      90. End Function
      91. End Class
      93. Public Class CopyReport
      94. Public Enum FileStatus
      95. Copy = 0
      96. Update = 1
      97. CreateDir = 2
      98. CopyError = 3
      99. End Enum
      101. Public Status As FileStatus
      102. Public Message As String
      103. End Class


      Anwendungsbeispiel:
      Benötigt wird eine Windows Forms Anwendung, eine Textbox und ein Button.

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      2. Private WithEvents Filesystem As New Filesystem
      4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. Filesystem.CopyRecursive("C:\temp\vb.net\source", "C:\temp\vb.net\destination", FilesystemClass.Filesystem.CopyMode.OverwriteNewDate)
      6. End Sub
      8. Private Sub Filesystem_Update(ByVal Report As CopyReport) Handles Filesystem.Update
      9. Select Case Report.Status
      10. Case CopyReport.FileStatus.Copy
      11. TextBox1.Text &= "*Kopiere: "
      12. Case CopyReport.FileStatus.Update
      13. TextBox1.Text &= "*Update: "
      14. Case CopyReport.FileStatus.CreateDir
      15. TextBox1.Text &= "*Verzeichnis: "
      16. Case CopyReport.FileStatus.CopyError
      17. TextBox1.Text &= "**Fehler: "
      18. End Select
      20. TextBox1.Text &= Report.Message & vbNewLine
      21. End Sub
      22. End Class


      ohne Event

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      2. Private WithEvents Filesystem As New Filesystem
      4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. Dim FileReport As New List(Of CopyReport)
      6. FileReport = Filesystem.CopyRecursive("C:\temp\vb.net\source", "C:\temp\vb.net\destination", FilesystemClass.Filesystem.CopyMode.OverwriteNewDate)
      8. For Each oFile As CopyReport In FileReport
      9. Select Case oFile.Status
      10. Case CopyReport.FileStatus.Copy
      11. TextBox1.Text &= "*Kopiere: "
      12. Case CopyReport.FileStatus.Update
      13. TextBox1.Text &= "*Update: "
      14. Case CopyReport.FileStatus.CreateDir
      15. TextBox1.Text &= "*Verzeichnis: "
      16. Case CopyReport.FileStatus.CopyError
      17. TextBox1.Text &= "**Fehler: "
      18. End Select
      20. TextBox1.Text &= oFile.Message & vbNewLine
      21. Next
      22. End Sub
      23. End Class

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Dodo“ ()

      Hallo Dodo,

      ich habe mir die Klasse angesehen, und ich finde sie Klasse.

      Leider blicke ich eins nicht.
      Gebe ich das Startverzeichnis an, kopiert er alles Recursive durch.
      Jedoch die Dateien die sich im angegebenen StartVerzeichnis befinden, die kopiert er nicht.
      Dort schreibt er in der TextBox
      Spoiler anzeigen
      **Fehler: Ein Teil des Pfades G:\PictureDrop\dotNetBase.Windows.Forms.dll konnte nicht gefunden werden.[G:\PictureDrop\dotNetBase.Windows.Forms.dll]
      **Fehler: Ein Teil des Pfades G:\PictureDrop\erfa09.png konnte nicht gefunden werden.[G:\PictureDrop\erfa09.png]
      **Fehler: Ein Teil des Pfades G:\PictureDrop\HttpPostRequestLib.dll konnte nicht gefunden werden.[G:\PictureDrop\HttpPostRequestLib.dll]
      **Fehler: Ein Teil des Pfades G:\PictureDrop\logo-takko.png konnte nicht gefunden werden.[G:\PictureDrop\logo-takko.png]
      **Fehler: Ein Teil des Pfades G:\PictureDrop\PictureDrop.exe konnte nicht gefunden werden.[G:\PictureDrop\PictureDrop.exe]
      **Fehler: Ein Teil des Pfades G:\PictureDrop\settings.xml konnte nicht gefunden werden.[G:\PictureDrop\settings.xml]
      **Fehler: Ein Teil des Pfades G:\PictureDrop\Thumbs.db konnte nicht gefunden werden.[G:\PictureDrop\Thumbs.db]
      **Fehler: Ein Teil des Pfades G:\PictureDrop\updateSystemDotNet.Controller.dll konnte nicht gefunden werden.[G:\PictureDrop\updateSystemDotNet.Controller.dll]


      Es ist dabei egal was ich vorher ausgewählt habe

      VB.NET-Quellcode

      1. Filesystem.CopyRecursive("C:\PictureDrop", "G:\PictureDrop", Filesystem.CopyMode.OverwritesAll)

      VB.NET-Quellcode

      1. Public Enum CopyMode
      2. OverwritesAll = 0
      3. OverwriteNewDate = 1
      4. OnlyNewFiles = 2
      5. End Enum


      Auch die Angaben des letzten \ bringt da nichts.

      Was mach ich falsch ?

      Danke

      Bernd

      Edit:
      ich weis das es eine Klasse für Verzeichnisse ist.
      Was mich aber wundert, wenn sie gleich zweimal hintereinander aufrufe, dann liest er ja die Files mit ein.
      Warum denn nicht beim ersten mal. Ich habe sie nun mehrfach durchgesehen, ich komme nicht drauf.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bernd“ ()

      Existiert beim ersten Mal das Verzeichnis PictureDrop schon? Evtl. ist dies der Fehler, ich prüfe ja mit FileExists, ob die Datei schon existiert, kann sein dass hierbei aucxh der Pfad geprüft wird und wenn dieser schon nicht existiert, dass es dann zu diesem Fehler kommt.

      Ggf. hilft es wenn man die Schleife mit den Dateien und den Verzeichnissen tauscht. Also das erst die Verzeichnie eingelesen und Rekursiv durchsucht und erst danach die Dateien kopiert werden. Bei den Verzeichnissen wird ja im Zielpfad dann das entsprechende Verzeichnis angelegt. War wohlmöglich ein Denkfehler von mir. Hab nur gerade keine Zeit das zu testen.

      Dodo schrieb:

      Existiert beim ersten Mal das Verzeichnis PictureDrop schon?

      Ich habe beides versucht. Zuerst ohne das das Verzeichnis Existiert. Dann habe ich es manuell angelegt.
      Beides mal macht er es nicht.
      Was mich nur wundert, lasse ich die Routine 2 mal hintereinander laufen, dann gehts.

      Ich schaue mir die Klasse nochmals in Ruhe an. Am Wochenende.
      Irgendwie muss die doch ans laufen kommen.

      Danke dir

      bernd

      Ich glaube es ist besser wenn erst die Schleife kommt wo durch die Verzeichnisse gegangen wird und danach die Schleife mit den Dateien. Normal habe ich eine rekursive Methode auch immer so gemacht, wieso hier nicht, ich weiß es nicht.

      Nun ich könnte hier einfach mal die Schleifen autauschen, nur weiß ich nicht ob das Problem dann wirklich behoben ist =)

      Ich änder es hier mal und du könntest es ja dann mal Testen und bescheid geben ob es funktioniert.

      Edit: so ist geändert.

      Hallo Dodo,

      so bin mal ein Stündchen früher aufgestanden um zu Testen.
      Jetzt geht leider nichts mehr. Ich habe beide Methoden mal ausprobiert.
      Es kommt nun nichts mehr an, weder Files noch Folder.

      Ich habe Lokale Verzeichnisse gewählt und als Ziel einen USB Stick. Auch anders herum.
      Verschiedene Verzeichnis Namen und auch Platten. Wobei das ja keinen Problem sein sollte.

      Ne sorry


      Bernd

      Guten Tag "DoDo",

      Ich benütze in meinem Projekt deine Klasse für das Kopieren. Seine Funktion ist es meine HD's zu Backupen, da kann es vorkommen das die Kopier. Dabei kann es vorkommen das die "Pfade" länger als 248 Zeichen sind. Dise werden bei deiner "Klasse" als fehler ausgegeben.

      Meine Frage:

      Ist es möglich, diese "Dateien" Trotzdem zu Kopieren?

      Fehler Meldung:

      XML-Quellcode

      1. Der angegebene Pfad und/oder Dateiname ist zu lang. Der vollständig qualifizierte Dateiname muss kürzer als 260 Zeichen und der Pfadname kürzer als 248 Zeichen sein.


      P.s. Bin bewundert von deiner "Klasse" die ist genial :)

      Natürlich, erstmal das Quellverzeichnis Rekusiv durchlaufen, alle Dateien mit Pfad in eine Liste speichern, damit die maximale Dateianzahl hast. Danach den Kopiervorgang starten, bei jeder Kopieroperation ein zähler hochzählen lassen und dann mittels 3-Satz aus bereits Kopierten Dateien und der maximal Dateianzahl den Prozentwert ermitteln und diesen dann einer Progressbar anzeigen lassen.

      Moin !

      auch wenn dieses Posting schon etwas angestaubt, so ist es doch genau das was ich suche.

      Meine Situation ist folgende:

      In einem Verzeichnis X:\VB_NET_2015\Rollout_Topobase gibt es ein Unterverzeichnis "x86" das samt seiner Subfolders und Dateien nach C:\Program Files\Autodesk\AutoCAD 2015\Map\bin kopiert werden soll.

      Mein Aufruf sieht nun wie folgt aus:

      VB.NET-Quellcode

      1. Dim FolderPathSubfolderSource As String = "X:\VB_NET_2015\Rollout_Topobase\x86"
      2. Dim FolderTarget As String = "C:\Program Files\Autodesk\AutoCAD 2015\Map\bin"
      3. Filesystem.CopyRecursive(FolderPathSubfolderSource, FolderTarget, Filesystem.CopyMode.OverwriteNewDate)


      Das Problem ist wohl aber das das Verzeichnis X86 nicht in das Zielverzeichnis kopiert wird.

      Ich kann aber als Basis nicht sagen, dass "X:\VB_NET_2015\Rollout_Topobase" als Basis angewandt werden kann, weil weitere Verzeichnisse auf dieser Ebene zu finden sind, die nicht übertragen werden sollen.

      Kann mir einer von Euch sagen, ob ich hier einen Gedankenfehler habe der kennt einen besseren Weg für das rekursive Kopieren? Wie gesagt, genau die Features der Überschreibung unter Beachtung der Zeitstempel sind genau passend für mich.

      Gruß Jan

      Hallo

      Ja und was spuckt dir die Klasse aus wenn du das Update-Event abonnierst??
      Da kannst du die Fehler ja auch mitloggen. Evtl. handelt es sich ganz simpel um Berechtigungs-Probleme.

      Grüße
      Sascha
      If _work = worktype.hard Then Me.Drink(Coffee)
      Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

      ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

      Moin!

      Berichtigung sollte es nicht sein.

      Wenn ich aber die Zeile

      VB.NET-Quellcode

      1. For Each oDir As DirectoryInfo In Directories


      debugge, dann wird bei

      VB.NET-Quellcode

      1. Dim FolderPathSubfolderSource As String = "X:\VB_NET_2015\Rollout_Topobase\x86"


      kein Subverzeichnis gelistet.

      Wird hingegen

      VB.NET-Quellcode

      1. Dim FolderPathSubfolderSource As String = "X:\VB_NET_2015\Rollout_Topobase"


      angewandt, dann werden 7 Verzeichnisse gelistet - also auch die anderen Verzeichnisse auf der Ebene".

      Scheint wohl ich das zu leisten was ich dachte also anpassen.

      vbarchiv.net/tipps/tipp_1597-o…rdner-kopieren-vbnet.html könnte es leisten.

      Gruß Jan

      @jan99
      BITTE implementiere das Event wie im Eingangspost ganz oben erklärt und logge anstatt in eine TextBox von mir aus mit Debug.WriteLine(Report.Message) aus.

      Ich verstehe das jetzt nicht ganz. Ich habe um die Loggs gebeten und es kommt nichts. DIESE Klasse schluckt leider Fehler komplett, weshalb du dir das so ausgeben lassen muss, oder man Debuggt richtig und setzt einen Haltepunkt.

      Also, bekommen wir nun die Infos welche die Klasse ausgibt?
      Ich habe ja selbst nur eine vermutung, möchte aber wissen ob diese korrekt ist um dir weiterhelfen zu können.

      Grüße
      Sascha
      If _work = worktype.hard Then Me.Drink(Coffee)
      Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

      ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Facebook
    Telefonspende