CopyTo-Erweiterung für DirectoryInfo

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Artentus.

      CopyTo-Erweiterung für DirectoryInfo

      Aufgrund einer Diskussion, ob nun My.Computer.FileSystem oder System.IO besser sei, die kürzlich stattfand (einige haben sie vielleicht mitbekommen), und weil ich ein Verfechter von System.IO bin, war ich überrascht, dass es tatsächlich etwas gibt, bei dem My.Computer.FileSystem besser ist. Es handelt sich dabei um das Kopieren von Verzeichnissen.
      Das konnte ich natürlich nicht auf mir sitzen lassen, und deshalb habe mich daran gemacht eine Extension für DirectoryInfo zu schreiben, die die My.Computer.FileSystem.CopyDirectory-Methode schlagen kann. Und das ist dabei herausgekommen:

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Module DirectoryInfoExtensions
      2. ''' <summary>
      3. ''' Kopiert das Verzeichnis an den angegebenen Ort.
      4. ''' </summary>
      5. ''' <param name="destDirName">Name und Pfad des Verzeichnisses, in das der Inhalt dieses Verzeichnisses kopiert werden soll.</param>
      6. ''' <param name="merge">Gibt an, ob beim Vorhandensein des Zielverzeichnisses fortgefahren werden soll.</param>
      7. ''' <param name="options">Gibt an, wie verfahren werden soll, wenn Dateien aus dem Ausgangsverzeichnis im Zielverzeichnis bereits vorhanden sind.</param>
      8. ''' <returns>Ein neues DirectoryInfo-Objekt, das das Zielverzeichnis darstellt.</returns>
      9. ''' <exception cref="System.IO.IOException">Tritt auf, wenn "merge" false ist und der Zielordner bereits existiert, oder wenn OverwriteOptions.ThrowError übergeben wurde und eine zu kopierende Datei am Zielort bereits existiert.</exception>
      10. <Extension>
      11. Public Function CopyTo(dir As DirectoryInfo, destDirName As String, merge As Boolean, options As OverwriteOptions) As DirectoryInfo
      12. Dim result = New DirectoryInfo(destDirName)
      13. If result.Exists Then
      14. If Not merge Then Throw New IOException("Der Ordner """ & Convert.ToString(result.FullName) & """ existiert bereits.")
      15. Else
      16. result.Create()
      17. End If
      18. For Each d In dir.EnumerateDirectories()
      19. d.CopyTo(Path.Combine(destDirName, d.Name), merge, options)
      20. Next
      21. For Each f In dir.EnumerateFiles()
      22. Dim newPath = Path.Combine(result.FullName, f.Name)
      23. Select Case options
      24. Case OverwriteOptions.None
      25. If File.Exists(newPath) Then Throw New IOException("Die Datei """ & Convert.ToString(newPath) & """ existiert bereits.")
      26. f.CopyTo(newPath)
      27. Case OverwriteOptions.DontOverwrite
      28. If Not File.Exists(newPath) Then f.CopyTo(newPath)
      29. Case OverwriteOptions.OverwriteAll
      30. f.CopyTo(newPath, True)
      31. Case OverwriteOptions.OverwriteWhenNewer
      32. Dim newF = New FileInfo(newPath)
      33. If Not newF.Exists OrElse newF.LastWriteTime > f.LastWriteTime Then
      34. f.CopyTo(newPath, True)
      35. End If
      36. Case OverwriteOptions.Rename
      37. Dim count = 1
      38. While File.Exists(newPath)
      39. count += 1
      40. newPath = Path.Combine(result.FullName, String.Concat(Path.GetFileNameWithoutExtension(f.Name), " (", count, ")", f.Extension))
      41. End While
      42. f.CopyTo(newPath)
      43. End Select
      44. Next
      45. Return result
      46. End Function
      48. ''' <summary>
      49. ''' Kopiert das Verzeichnis an den angegebenen Ort.
      50. ''' </summary>
      51. ''' <param name="destDirName">Name und Pfad des Verzeichnisses, in das der Inhalt dieses Verzeichnisses kopiert werden soll.</param>
      52. ''' <returns>Ein neues DirectoryInfo-Objekt, das das Zielverzeichnis darstellt.</returns>
      53. ''' <exception cref="System.IO.IOException">Tritt auf, wenn der Zielordner bereits existiert, oder wenn eine zu kopierende Datei am Zielort bereits existiert.</exception>
      54. <Extension>
      55. Public Function CopyTo(dir As DirectoryInfo, destDirName As String) As DirectoryInfo
      56. Return dir.CopyTo(destDirName, False, OverwriteOptions.None)
      57. End Function
      59. ''' <summary>
      60. ''' Verschiebt das Verzeichnis an den angegebenen Ort.
      61. ''' </summary>
      62. ''' <param name="destDirName">Name und Pfad des Verzeichnisses, in das der Inhalt dieses Verzeichnisses verschoben werden soll.</param>
      63. ''' <param name="merge">Gibt an, ob beim Vorhandensein des Zielverzeichnisses fortgefahren werden soll.</param>
      64. ''' <param name="options">Gibt an, wie verfahren werden soll, wenn Dateien aus dem Ausgangsverzeichnis im Zielverzeichnis bereits vorhanden sind.</param>
      65. ''' <returns>Ein neues DirectoryInfo-Objekt, das das Zielverzeichnis darstellt.</returns>
      66. ''' <exception cref="System.IO.IOException">Tritt auf, wenn "merge" false ist und der Zielordner bereits existiert, oder wenn OverwriteOptions.None übergeben wurde und eine zu kopierende Datei am Zielort bereits existiert.</exception>
      67. <Extension>
      68. Public Function MoveTo(dir As DirectoryInfo, destDirName As String, merge As Boolean, options As OverwriteOptions) As DirectoryInfo
      69. Dim result = New DirectoryInfo(destDirName)
      70. If result.Exists Then
      71. If Not merge Then
      72. Throw New IOException("Der Ordner """ & Convert.ToString(result.FullName) & """ existiert bereits.")
      73. End If
      74. Else
      75. result.Create()
      76. End If
      77. For Each d In dir.EnumerateDirectories()
      78. d.MoveTo(Path.Combine(destDirName, d.Name), merge, options)
      79. Next
      80. For Each f In dir.EnumerateFiles()
      81. Dim newPath = Path.Combine(result.FullName, f.Name)
      82. Select Case options
      83. Case OverwriteOptions.None
      84. If File.Exists(newPath) Then Throw New IOException("Die Datei """ & Convert.ToString(newPath) & """ existiert bereits.")
      85. f.MoveTo(newPath)
      86. Case OverwriteOptions.DontOverwrite
      87. If Not File.Exists(newPath) Then f.MoveTo(newPath)
      88. Case OverwriteOptions.OverwriteAll
      89. Dim newF1 = New FileInfo(newPath)
      90. If newF1.Exists Then newF1.Delete()
      91. f.MoveTo(newPath)
      92. Case OverwriteOptions.OverwriteWhenNewer
      93. Dim newF2 = New FileInfo(newPath)
      94. If newF2.Exists Then
      95. If newF2.LastWriteTime > f.LastWriteTime Then
      96. newF2.Delete()
      97. f.MoveTo(newPath)
      98. End If
      99. Else
      100. f.MoveTo(newPath)
      101. End If
      102. Case OverwriteOptions.Rename
      103. Dim count = 1
      104. While File.Exists(newPath)
      105. count += 1
      106. newPath = Path.Combine(result.FullName, String.Concat(Path.GetFileNameWithoutExtension(f.Name), " (", count, ")", f.Extension))
      107. End While
      108. f.MoveTo(newPath)
      109. End Select
      110. Next
      111. dir.Delete()
      112. Return result
      113. End Function
      114. End Module
      116. ''' <summary>
      117. ''' Gibt an, wie bei einem Kopiervorgang verfahren werden soll, wenn die Zieldatei bereits existiert.
      118. ''' </summary>
      119. Public Enum OverwriteOptions
      120. ''' <summary>
      121. ''' Wenn die Datei bereits existiert, wird ein Fehler ausgelöst.
      122. ''' </summary>
      123. ThrowError
      124. ''' <summary>
      125. ''' Dateien werden nie überschrieben.
      126. ''' </summary>
      127. DontOverwrite
      128. ''' <summary>
      129. ''' Dateien werden immer überschrieben.
      130. ''' </summary>
      131. OverwriteAll
      132. ''' <summary>
      133. ''' Dateien werden nur überschrieben, wenn sie älter sind als die neue Datei.
      134. ''' </summary>
      135. OverwriteWhenNewer
      136. ''' <summary>
      137. ''' Neue Dateien werden umbenannt, wenn die Zieldatei existiert.
      138. ''' </summary>
      139. Rename
      140. End Enum

      Ich habe alles in den XML-Kommentaren erklärt, weshalb ich das hier nun nicht mehr tun werde.
      Zusätzlich zu CopyTo ist auch eine verbesserte MoveTo-Funktion dabei.
      Den entsprechenden C#-Code werde ich (aufgrund von Platzmangel) noch nachreichen.

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

      Hier jetzt auch noch der C#-Code:
      Spoiler anzeigen

      C-Quellcode

      1. public static class DirectoryInfoExtensions
      2. {
      3. /// <summary>
      4. /// Kopiert das Verzeichnis an den angegebenen Ort.
      5. /// </summary>
      6. /// <param name="destDirName">Name und Pfad des Verzeichnisses, in das der Inhalt dieses Verzeichnisses kopiert werden soll.</param>
      7. /// <param name="merge">Gibt an, ob beim Vorhandensein des Zielverzeichnisses fortgefahren werden soll.</param>
      8. /// <param name="options">Gibt an, wie verfahren werden soll, wenn Dateien aus dem Ausgangsverzeichnis im Zielverzeichnis bereits vorhanden sind.</param>
      9. /// <returns>Ein neues DirectoryInfo-Objekt, das das Zielverzeichnis darstellt.</returns>
      10. /// <exception cref="System.IO.IOException">Tritt auf, wenn "merge" false ist und der Zielordner bereits existiert, oder wenn OverwriteOptions.ThrowError übergeben wurde und eine zu kopierende Datei am Zielort bereits existiert.</exception>
      11. public static DirectoryInfo CopyTo(this DirectoryInfo dir, string destDirName, bool merge, OverwriteOptions options)
      12. {
      13. var result = new DirectoryInfo(destDirName);
      14. if (result.Exists)
      15. {
      16. if (!merge)
      17. throw new IOException("Der Ordner \"" + result.FullName + "\" existiert bereits.");
      18. }
      19. else
      20. result.Create();
      21. foreach (var d in dir.EnumerateDirectories())
      22. {
      23. d.CopyTo(Path.Combine(destDirName, d.Name), merge, options);
      24. }
      25. foreach (var f in dir.EnumerateFiles())
      26. {
      27. var newPath = Path.Combine(result.FullName, f.Name);
      28. switch (options)
      29. {
      30. case OverwriteOptions.None:
      31. if (File.Exists(newPath))
      32. throw new IOException("Die Datei \"" + newPath + "\" existiert bereits.");
      33. f.CopyTo(newPath);
      34. break;
      35. case OverwriteOptions.DontOverwrite:
      36. if (!File.Exists(newPath))
      37. f.CopyTo(newPath);
      38. break;
      39. case OverwriteOptions.OverwriteAll:
      40. f.CopyTo(newPath, true);
      41. break;
      42. case OverwriteOptions.OverwriteWhenNewer:
      43. var newF = new FileInfo(newPath);
      44. if (!newF.Exists || newF.LastWriteTime > f.LastWriteTime)
      45. f.CopyTo(newPath, true);
      46. break;
      47. case OverwriteOptions.Rename:
      48. var count = 1;
      49. while (File.Exists(newPath))
      50. {
      51. count++;
      52. newPath = Path.Combine(result.FullName, string.Concat(Path.GetFileNameWithoutExtension(f.Name), " (", count, ")", f.Extension));
      53. }
      54. f.CopyTo(newPath);
      55. break;
      56. }
      57. }
      58. return result;
      59. }
      61. /// <summary>
      62. /// Kopiert das Verzeichnis an den angegebenen Ort.
      63. /// </summary>
      64. /// <param name="destDirName">Name und Pfad des Verzeichnisses, in das der Inhalt dieses Verzeichnisses kopiert werden soll.</param>
      65. /// <returns>Ein neues DirectoryInfo-Objekt, das das Zielverzeichnis darstellt.</returns>
      66. /// <exception cref="System.IO.IOException">Tritt auf, wenn der Zielordner bereits existiert, oder wenn eine zu kopierende Datei am Zielort bereits existiert.</exception>
      67. public static DirectoryInfo CopyTo(this DirectoryInfo dir, string destDirName)
      68. {
      69. return dir.CopyTo(destDirName, false, OverwriteOptions.None);
      70. }
      72. /// <summary>
      73. /// Verschiebt das Verzeichnis an den angegebenen Ort.
      74. /// </summary>
      75. /// <param name="destDirName">Name und Pfad des Verzeichnisses, in das der Inhalt dieses Verzeichnisses verschoben werden soll.</param>
      76. /// <param name="merge">Gibt an, ob beim Vorhandensein des Zielverzeichnisses fortgefahren werden soll.</param>
      77. /// <param name="options">Gibt an, wie verfahren werden soll, wenn Dateien aus dem Ausgangsverzeichnis im Zielverzeichnis bereits vorhanden sind.</param>
      78. /// <returns>Ein neues DirectoryInfo-Objekt, das das Zielverzeichnis darstellt.</returns>
      79. /// <exception cref="System.IO.IOException">Tritt auf, wenn "merge" false ist und der Zielordner bereits existiert, oder wenn OverwriteOptions.None übergeben wurde und eine zu kopierende Datei am Zielort bereits existiert.</exception>
      80. public static DirectoryInfo MoveTo(this DirectoryInfo dir, string destDirName, bool merge, OverwriteOptions options)
      81. {
      82. var result = new DirectoryInfo(destDirName);
      83. if (result.Exists)
      84. {
      85. if (!merge)
      86. throw new IOException("Der Ordner \"" + result.FullName + "\" existiert bereits.");
      87. }
      88. else
      89. result.Create();
      90. foreach (var d in dir.EnumerateDirectories())
      91. {
      92. d.MoveTo(Path.Combine(destDirName, d.Name), merge, options);
      93. }
      94. foreach (var f in dir.EnumerateFiles())
      95. {
      96. var newPath = Path.Combine(result.FullName, f.Name);
      97. switch (options)
      98. {
      99. case OverwriteOptions.None:
      100. if (File.Exists(newPath))
      101. throw new IOException("Die Datei \"" + newPath + "\" existiert bereits.");
      102. f.MoveTo(newPath);
      103. break;
      104. case OverwriteOptions.DontOverwrite:
      105. if (!File.Exists(newPath))
      106. f.MoveTo(newPath);
      107. break;
      108. case OverwriteOptions.OverwriteAll:
      109. var newF1 = new FileInfo(newPath);
      110. if (newF1.Exists)
      111. newF1.Delete();
      112. f.MoveTo(newPath);
      113. break;
      114. case OverwriteOptions.OverwriteWhenNewer:
      115. var newF2 = new FileInfo(newPath);
      116. if (newF2.Exists)
      117. {
      118. if (newF2.LastWriteTime > f.LastWriteTime)
      119. {
      120. newF2.Delete();
      121. f.MoveTo(newPath);
      122. }
      123. }
      124. else
      125. f.MoveTo(newPath);
      126. break;
      127. case OverwriteOptions.Rename:
      128. var count = 1;
      129. while (File.Exists(newPath))
      130. {
      131. count++;
      132. newPath = Path.Combine(result.FullName, string.Concat(Path.GetFileNameWithoutExtension(f.Name), " (", count, ")", f.Extension));
      133. }
      134. f.MoveTo(newPath);
      135. break;
      136. }
      137. }
      138. dir.Delete();
      139. return result;
      140. }
      141. }
      143. /// <summary>
      144. /// Gibt an, wie bei einem Kopiervorgang verfahren werden soll, wenn die Zieldatei bereits existiert.
      145. /// </summary>
      146. public enum OverwriteOptions
      147. {
      148. /// <summary>
      149. /// Wenn die Datei bereits existiert, wird ein Fehler ausgelöst.
      150. /// </summary>
      151. ThrowError,
      152. /// <summary>
      153. /// Dateien werden nie überschrieben.
      154. /// </summary>
      155. DontOverwrite,
      156. /// <summary>
      157. /// Dateien werden immer überschrieben.
      158. /// </summary>
      159. OverwriteAll,
      160. /// <summary>
      161. /// Dateien werden nur überschrieben, wenn sie älter sind als die neue Datei.
      162. /// </summary>
      163. OverwriteWhenNewer,
      164. /// <summary>
      165. /// Neue Dateien werden umbenannt, wenn die Zieldatei existiert.
      166. /// </summary>
      167. Rename
      168. }

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

    Facebook
    Telefonspende