Bei Fehler Kopiervorgang sofort beenden

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

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von siycah.

    Bei Fehler Kopiervorgang sofort beenden

    Moin moin

    Mein Code hier bereitet mir einige Probleme. Das kopieren als solches funktioniert super. Das Problem ist das Abfangen von Fehlern.
    Kopiere ich z.B. auf einen USB-Stick und ziehe den Stick während des kopieren ab, verlässt der Code nicht sofort die entsprechende Methode.

    Siehe dazu den Auszug aus dem LogFile. Habe bis Bild Nummer 0011 kopieren lassen und dann den USB-Stick abgezogen.

    Irgendwie komme ich leider nicht weiter. :(

    Mein Code:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class FileCopier
    3. Public Event CopyProgressChanged As EventHandler(Of CopyProgressEventArgs)
    4. Public Event CopyCompleted As EventHandler(Of CopyCompletedEventArgs)
    5. Public Event CopyFailed As EventHandler(Of CopyFailedEventArgs)
    6. Private Property Copysuccess As Boolean = False ' Flag für den Kopierforgang
    8. Public Async Function CopyDirectoryAsync(sourceDir As String, targetDir As String) As Task
    9. Await Task.Run(Sub() CopyDirectory(sourceDir, targetDir))
    10. End Function
    12. Private Sub IsCopySuccess()
    13. If Copysuccess Then
    14. Dim message As String = $"Kopieren erfolgreich abgeschlossen."
    15. RaiseEvent CopyCompleted(Me, New CopyCompletedEventArgs(message))
    16. GlobalEventLogger.ExceptionToFile(message, ExStatus.Success)
    17. End If
    18. End Sub
    20. Private Sub CopyDirectory(sourceDir As String, targetDir As String)
    21. Try
    22. ' Zuerst das Quellverzeichnis überprüfen
    23. If Not CheckSourceDirectory(sourceDir) Then Return
    25. ' Dann das Zielverzeichnis erstellen oder überprüfen
    26. If Not CreateTargetDirectory(targetDir) Then Return
    28. ' Schließlich die Dateien und Unterverzeichnisse kopieren
    29. CopyFilesAndSubDirectories(sourceDir, targetDir)
    31. ' Wenn alles erfolgreich war
    32. Copysuccess = True
    34. Catch ex As Exception
    35. Copysuccess = False
    36. Dim message As String = $"Ein Fehler ist aufgetreten."
    37. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(message))
    38. GlobalEventLogger.ExceptionToFile($"{message}{Environment.NewLine}{ex.Message}", ExStatus.Failure)
    39. End Try
    40. End Sub
    42. Private Function CheckSourceDirectory(sourceDir As String) As Boolean
    43. Dim sourceDirectoryInfo As New DirectoryInfo(sourceDir)
    44. If Not sourceDirectoryInfo.Exists Then
    45. Dim message As String = $"Quellverzeichnis existiert nicht!"
    46. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(Message))
    47. GlobalEventLogger.ExceptionToFile(Message, ExStatus.Failure)
    48. Return False
    49. End If
    50. Return True
    51. End Function
    53. Private Function CreateTargetDirectory(targetDir As String) As Boolean
    54. Try
    55. Dim targetDirectoryInfo As DirectoryInfo = Directory.CreateDirectory(targetDir)
    56. Return True
    57. Catch ex As Exception
    58. Copysuccess = False
    59. Dim message As String = $"Fehler beim Erstellen des Zielverzeichnisses."
    60. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(Message))
    61. GlobalEventLogger.ExceptionToFile($"{Message}{Environment.NewLine}{ex.Message}", ExStatus.Failure)
    62. Return False
    63. End Try
    64. End Function
    66. Private Sub CopyFilesAndSubDirectories(sourceDir As String, targetDir As String)
    67. Dim sourceDirectoryInfo As New DirectoryInfo(sourceDir)
    68. For Each sourceFileOrDir As FileSystemInfo In sourceDirectoryInfo.GetFileSystemInfos()
    69. If (sourceFileOrDir.Attributes And FileAttributes.Hidden) <> FileAttributes.Hidden Then ' Überprüfung auf versteckte Dateien oder Ordner
    70. Dim formattedPath As String
    71. If TypeOf sourceFileOrDir Is FileInfo Then ' Wenn es sich um eine Datei handelt
    72. Dim sourceFile As FileInfo = DirectCast(sourceFileOrDir, FileInfo)
    73. formattedPath = Path.Combine(targetDir, sourceFile.Name)
    74. Dim directoryStructure As String() = formattedPath.Split("\"c)
    75. If directoryStructure.Length > 3 Then
    76. formattedPath = Path.Combine(directoryStructure(0), directoryStructure(1), "...", directoryStructure(directoryStructure.Length - 1))
    77. End If
    78. Dim targetFile As String = Path.Combine(targetDir, sourceFile.Name)
    79. Try
    80. sourceFile.CopyTo(targetFile, True)
    81. RaiseEvent CopyProgressChanged(Me, New CopyProgressEventArgs(formattedPath))
    82. Catch ex As Exception
    83. Copysuccess = False
    84. Dim message As String = $"Fehler beim Kopieren der Datei"
    85. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs($"{message} {sourceFile.Name}{Environment.NewLine}{ex.Message}"))
    86. GlobalEventLogger.ExceptionToFile($"{message} {sourceFile.Name}{Environment.NewLine}{ex.Message}", ExStatus.Failure)
    87. Return ' Sofort verlassen, wenn ein Fehler auftritt
    88. End Try
    89. ElseIf TypeOf sourceFileOrDir Is DirectoryInfo Then ' Wenn es sich um ein Verzeichnis handelt
    90. Dim sourceSubDir As DirectoryInfo = DirectCast(sourceFileOrDir, DirectoryInfo)
    91. Dim targetSubDir As String = Path.Combine(targetDir, sourceSubDir.Name)
    92. CopyDirectory(sourceSubDir.FullName, targetSubDir)
    93. End If
    94. End If
    95. Next
    96. End Sub
    98. End Class
    100. Public Class CopyProgressEventArgs
    101. Inherits EventArgs
    102. Public Property FileName As String
    104. Public Sub New(fileName As String)
    105. Me.FileName = fileName
    106. End Sub
    107. End Class
    109. Public Class CopyCompletedEventArgs
    110. Inherits EventArgs
    111. Public Property Message As String
    113. Public Sub New(message As String)
    114. Me.Message = message
    115. End Sub
    116. End Class
    118. Public Class CopyFailedEventArgs
    119. Inherits EventArgs
    120. Public Property ErrorMessage As String
    122. Public Sub New(errorMessage As String)
    123. Me.ErrorMessage = errorMessage
    124. End Sub
    125. End Class




    Auszug aus dem LogFile:
    Spoiler anzeigen
    ​

    XML-Quellcode

    1. ​
    2. [ 03.05.2024 | 08:40:44 ] Erfolgreich
    3. Das Laden der Programm-Konfiguration aus der XML-Datei B:\Debug\Settings.xml war erfolgreich.
    5. [ 03.05.2024 | 08:40:46 ] Hinweis
    6. Der Backup-Prozess wurde gestartet.
    8. [ 03.05.2024 | 08:40:48 ] Fehler
    9. Fehler beim Kopieren der Datei NewAI_A_0012.png
    10. Die Datei "F:\_LibraryBackUp\testverzeichnisse\Bilder\NewAI_A_0012.png" konnte nicht gefunden werden.
    12. [ 03.05.2024 | 08:41:00 ] Fehler
    13. Fehler beim Erstellen des Zielverzeichnisses.
    14. Ein Teil des Pfades "F:\_LibraryBackUp\testverzeichnisse\Bilder_I" konnte nicht gefunden werden.
    16. [ 03.05.2024 | 08:41:01 ] Fehler
    17. Fehler beim Erstellen des Zielverzeichnisses.
    18. Ein Teil des Pfades "F:\_LibraryBackUp\testverzeichnisse\Bilder_II" konnte nicht gefunden werden.
    20. [ 03.05.2024 | 08:41:01 ] Fehler
    21. Fehler beim Erstellen des Zielverzeichnisses.
    22. Ein Teil des Pfades "F:\_LibraryBackUp\testverzeichnisse\Dakota" konnte nicht gefunden werden.
    24. [ 03.05.2024 | 08:41:02 ] Fehler
    25. Fehler beim Erstellen des Zielverzeichnisses.
    26. Ein Teil des Pfades "F:\_LibraryBackUp\testverzeichnisse\Storys" konnte nicht gefunden werden.

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie In der WndProc() bekommst Du die entsprechenden Informationen.
    Sieh Dir mal dies an:
    Ein USB-Dongel
    Wenn Du das Kopieren in Blöcke zerlegst, kannst Du selbst nach jedem Block testen, ob die Verbindung noch da ist und die Prozedur verlassen.
    Außerdem kannst Du mit einem Fortschrittsbalken den Verlauf darstellen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Eigentlich brauchst du für genau solche Sachen eine State-Machine.

    Deine State-Machine läuft dann immer durch, prüft den Status und kopiert dann Stück für Stück. So kannst du dann auch rechtzeitig Fehler abfangen.
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems
    Meine Privatwebseite: SimonC.eu

    Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
    Ich versuche auf euch zurückzukommen :)

    @Amelie Ich hab das jetzt nicht explizit getestet. Wie verhält sich denn das ganze wenn Du anstelle einer eigenen Kopierroutine folgendes zum kopieren verwendest? -> Dateien und Ordner löschen, kopieren, verschieben und umbenennen per IFileOperation Vorteil des ganzen wäre auch, das Du hier gleich einen Dialog mit dem Vortschritt angezeigt bekommst. Du kannst, bevor Du Dir den Code anschaust, das ganze auch einfach im Explorer testen. Also was passiert wenn Du beim Kopiervorgang im Explorer den Stick abziehst. Was anderes würde der Code auch nicht machen.
    Mfg -Franky-

    @-Franky-
    Der Test im Explorer wirft mir folgendes Fenster. Siehe Bildanhang. Nach klick auf Abbrechen schließt sich das Fenster.
    Werde mir mal Dein Beispiel runterladen und ansehen.

    @RodFromGermany
    Zugegeben, hatte ich das schon im Kopf, schien mir dann aber wieder zu "aufwendig" zu sein und dache es gäbe eine einfache Lösung.

    @siycah
    Hab mal flüchtig etwas über "State-Machine" gehört aber noch nie etwas mit gemacht.
    Bilder

    • explorerfehler-1.jpg

      149,4 kB, 453×383, 25 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    gehört aber noch nie etwas mit gemacht.

    Irgendwo fängt ja jeder an.

    Eine State-Machine ist nichts anderes, als eine Schleife, die immer wieder einen Status prüft und abhängig davon dann eine Aktion ausführt.

    Wenn du schon mal was mit ​async/await gemacht hast, dann hast du auch schon mit State Machines gearbeitet. In dem Fall abstrahiert dotnet das alles weg, aber im Hintergrund ist es nichts anderes als das.

    Hier das so ziemlichste einfachste Beispiel einer State-Machine, die ich mir ausdenken kann.

    C#-Quellcode

    1. ​
    2. class StateMachine {
    4. public bool State { get; set; } = true;
    6. public void DoWork() {
    8. while (true) {
    9. if (State) {
    10. Console.WriteLine("State is true");
    11. } else {
    12. Console.WriteLine("State is false");
    13. }
    14. }
    16. }
    18. }
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems
    Meine Privatwebseite: SimonC.eu

    Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
    Ich versuche auf euch zurückzukommen :)

    Der Verursacher von meinem Problem: ​GlobalEventLogger.ExceptionToFile($"{Messa.......
    Der ist wohl in so eine Art Endlosschleife gelaufen.

    VB.NET-Quellcode

    1. ​
    2. Private Function CreateTargetDirectory(targetDir As String) As Boolean
    3. Try
    4. Dim targetDirectoryInfo As DirectoryInfo = Directory.CreateDirectory(targetDir)
    5. Return True
    6. Catch ex As Exception
    7. Copysuccess = False
    8. Dim message As String = $"Fehler beim Erstellen des Zielverzeichnisses."
    9. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(Message))
    10. GlobalEventLogger.ExceptionToFile($"{Message}{Environment.NewLine}{ex.Message}", ExStatus.Failure)
    11. Return False
    12. End Try
    13. End Function


    @siycah
    Ja ​await / async kenn ich mittlerweile. Nutze das ja auch bei meiner Kopiermethode.
    Ich baue gerade die Copy-Class um.

    @-Franky-
    Habe dein zip mal angesehen. Püüüühh da ist noch vieles was ich noch nicht verstehe. Da brauche ich noch etwas (viel) Zeit. ;)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Püüüühh da ist noch vieles was ich noch nicht verstehe.

    Der Umgang mit COM Interfaces ist auf den ersten Blick für viele erst einmal undurchsichtig und kompliziert. Wenn man sich damit aber mal intensiver beschäftigt, wird einem das gar nicht mehr so kompliziert vorkommen und man erkennt auch die Vorteile, die Windows von Haus aus in Form von APIs und COM Interfaces anbietet die es in .Net so nicht gibt.

    Für Dich wäre wahrscheinlich das WindowsAPICodePack, gibt es als NuGet, der einfachere Einstieg da hier viele neuere Schnittstellen, die es in .Net nicht gibt, enthalten sind. In diesem WindowsAPICodePack sollte auch IFileOperation, in Form von irgendeiner Klasse, enthalten sein die Du einfach nutzen kannst.
    Mfg -Franky-

    @-Franky-

    Ich werde mir das jedenfalls noch genauer ansehen. Mich erschlagen dabei diese Werte " SFGAO_CANCOPY = &H1 " usw. mit denen ich mal so gar nichts anfangen kann.

    Mit meinem Code, bin ich so weit das ich die Anfänge einer von @siycah erwähnten "StateMashine" am formulieren bin.
    Erste Versuche waren schonmal nicht schlecht.

    Na und dann war da noch die fast Endlos-Schleife von meiner "LoggerClass". Das Problem konnte ich nun auch beseitigen.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Moin moin

    Habe meine Class nun nach dem Vorschlag von @siycah umgebaut. :)
    Nach ersten Test läuft alles so wie ich es mir vorstellte.

    Wäre hier noch etwas zu "verbessern"?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' Zustände des Kopiervorgangs
    2. Public Enum CopyState
    3. Busy
    4. Failure
    5. End Enum
    7. Public Class FileCopier
    8. Public CurrentState As CopyState = CopyState.Busy
    9. ' Zustand des Kopiervorgang
    10. Private Property ErrorLog As Boolean = False
    11. ' Flag für das einmalige Eintragen ins LogFile
    12. Public Property Canceling As Boolean = False
    13. ' Gibt an, ob der Kopiervorgang abgebrochen werden soll
    15. Public Event CopyProgressChanged As EventHandler(Of CopyProgressEventArgs)
    16. ' Ereignis, das ausgelöst wird, wenn sich der Kopierfortschritt ändert
    18. Public Event CopyCompleted As EventHandler(Of CopyCompletedEventArgs)
    19. ' Ereignis, das ausgelöst wird, wenn der Kopiervorgang erfolgreich abgeschlossen wurde
    21. Public Event CopyFailed As EventHandler(Of CopyFailedEventArgs)
    22. ' Ereignis, das ausgelöst wird, wenn ein Fehler beim Kopieren auftritt
    24. Public Sub New()
    25. End Sub
    27. Public Async Function CopyDirectoryAsync(sourceDir As String, targetDir As String) As Task
    28. ' Status setzen um einen erneuten Vorgang zu aktivieren
    29. CurrentState = CopyState.Busy
    30. ' Flag setzen um erneute Einträge zu zulassen
    31. ErrorLog = False
    32. Try
    33. ' Überprüfen, ob das Zielverzeichnis existiert, und wenn nicht, es erstellen
    34. Dim targetDirInfo As New DirectoryInfo(targetDir)
    35. If Not targetDirInfo.Exists Then
    36. targetDirInfo.Create()
    37. End If
    38. ' Starten des Kopiervorgangs
    39. Await CopyFilesAndSubDirectoriesAsync(sourceDir, targetDir)
    41. ' Überprüfen, ob der Kopiervorgang erfolgreich war
    42. If CurrentState <> CopyState.Failure Then
    43. Dim message As String = $"Kopieren erfolgreich abgeschlossen."
    44. RaiseEvent CopyCompleted(Me, New CopyCompletedEventArgs(message))
    45. GlobalEventLogger.ExceptionToFile(message, ExStatus.Success)
    46. End If
    48. Catch ex As Exception
    49. ' Fehlerbehandlung
    50. Dim message As String = $"Ein Fehler ist aufgetreten.{Environment.NewLine}{ex.Message}"
    51. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(message))
    52. CurrentState = CopyState.Failure
    53. End Try
    54. End Function
    56. ' Methode um bei User-Abbruch ins LogFile zu schreiben
    57. Private Sub HandleCancellation()
    58. If Not ErrorLog Then
    59. Dim CancelingMessage As String = "Kopieren wurde vom Benutzer abgebrochen!"
    60. RaiseEvent CopyCompleted(Me, New CopyCompletedEventArgs(CancelingMessage))
    61. GlobalEventLogger.ExceptionToFile(CancelingMessage, ExStatus.Notifier)
    62. ErrorLog = True
    63. End If
    64. End Sub
    66. Private Async Function CopyFilesAndSubDirectoriesAsync(sourceDir As String, targetDir As String) As Task
    67. Dim sourceDirectoryInfo As New DirectoryInfo(sourceDir)
    68. For Each sourceFileOrDir As FileSystemInfo In sourceDirectoryInfo.GetFileSystemInfos()
    70. ' Prüfen ob vom User abgebrochern werden soll
    71. If Canceling Then
    72. HandleCancellation()
    73. Exit For
    74. End If
    75. ' Prüfen ob durch Fehler abgebrochen werden soll
    76. If CurrentState = CopyState.Failure Then
    77. Exit For
    78. End If
    80. ' Überprüfung auf versteckte Dateien oder Ordner
    81. If (sourceFileOrDir.Attributes And FileAttributes.Hidden) <> FileAttributes.Hidden Then
    82. If TypeOf sourceFileOrDir Is FileInfo Then ' Wenn es sich um eine Datei handelt
    83. Await CopyFileAsync(DirectCast(sourceFileOrDir, FileInfo), targetDir)
    84. ElseIf TypeOf sourceFileOrDir Is DirectoryInfo Then ' Wenn es sich um ein Verzeichnis handelt
    85. Await CreateDirectoryAsync(DirectCast(sourceFileOrDir, DirectoryInfo), targetDir)
    86. End If
    87. End If
    88. Next
    89. End Function
    91. Private Async Function CopyFileAsync(file As FileInfo, targetDir As String) As Task
    92. Try
    93. ' Abbruchprüfungen
    94. 'CheckForCancellationAndFailure()
    95. ' Angezeigten Pfad kürzen
    96. Dim targetFile As String = Path.Combine(targetDir, file.Name)
    97. Dim formattedPath As String = targetFile
    98. Dim directoryStructure As String() = formattedPath.Split("\"c)
    99. Dim driveLetter As String = Path.GetPathRoot(targetDir)
    100. formattedPath = Path.Combine(driveLetter, directoryStructure(1), " ..... ", directoryStructure(directoryStructure.Length - 1))
    102. ' Größeren Puffer verwenden, um die Leistung zu optimieren
    103. Dim bufferSize As Integer = 256 * 1024 * 1024
    104. Using sourceStream As FileStream = file.OpenRead(),
    105. destinationStream As New FileStream(targetFile, FileMode.Create, FileAccess.Write, FileShare.None, bufferSize, True)
    106. Await sourceStream.CopyToAsync(destinationStream)
    107. End Using
    109. ' Copymethode ohne Bufferzeuweisung
    110. 'Await Task.Run(Sub() file.CopyTo(targetFile, True))
    111. RaiseEvent CopyProgressChanged(Me, New CopyProgressEventArgs(formattedPath))
    112. Catch ex As Exception
    113. Dim message As String = $"Fehler beim Kopieren der Datei {file.Name}:{Environment.NewLine}{ex.Message}"
    114. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(message))
    115. CurrentState = CopyState.Failure
    116. Exit Function
    117. End Try
    118. End Function
    120. Private Async Function CreateDirectoryAsync(directory As DirectoryInfo, targetDir As String) As Task
    121. Try
    122. ' Abbruchprüfungen
    123. 'CheckForCancellationAndFailure()
    124. Dim targetSubDir As String = Path.Combine(targetDir, directory.Name)
    125. Dim targetSubDirInfo As New DirectoryInfo(targetSubDir)
    126. If Not targetSubDirInfo.Exists Then
    127. targetSubDirInfo.Create()
    128. End If
    129. Await CopyFilesAndSubDirectoriesAsync(directory.FullName, targetSubDir)
    130. Catch ex As Exception
    131. Dim message As String = $"Fehler beim Erstellen des Verzeichnisses {directory.Name}:{Environment.NewLine}{ex.Message}"
    132. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(message))
    133. CurrentState = CopyState.Failure
    134. Exit Function
    135. End Try
    136. End Function
    138. '' Diese Prüfungen funktionieren auch ohne diesen Abschnitt in den Funktionen
    139. '' Bis auf weiteres Auskommentiert
    141. 'Private Sub CheckForCancellationAndFailure()
    142. ' ' Prüfen ob vom User abgebrochen werden soll
    143. ' If Canceling Then
    144. ' HandleCancellation()
    145. ' Exit Sub
    146. ' End If
    147. ' ' Prüfen ob durch Fehler abgebrochen werden soll
    148. ' If CurrentState = CopyState.Failure Then
    149. ' Exit Sub
    150. ' End If
    151. 'End Sub
    153. End Class
    155. Public Class CopyProgressEventArgs
    156. Inherits EventArgs
    157. Public Property FileName As String
    159. Public Sub New(fileName As String)
    160. Me.FileName = fileName
    161. End Sub
    162. End Class
    164. Public Class CopyCompletedEventArgs
    165. Inherits EventArgs
    166. Public Property Message As String
    168. Public Sub New(message As String)
    169. Me.Message = message
    170. End Sub
    171. End Class
    173. Public Class CopyFailedEventArgs
    174. Inherits EventArgs
    175. Public Property ErrorMessage As String
    177. Public Sub New(errorMessage As String)
    178. Me.ErrorMessage = errorMessage
    179. End Sub
    180. End Class




    Beim testen meiner neuen Class meldete mir irgendwann während des kopieren, der Logger folgendes:

    XML-Quellcode

    1. [ 05.05.2024 | 11:56:39 ] Hinweis
    2. EventLogfile für Mai 2024 erstellt.
    4. [ 05.05.2024 | 11:56:39 ] Erfolgreich
    5. Das Laden der Programm-Konfiguration aus der XML-Datei B:\Debug\Settings.xml war erfolgreich.
    7. [ 05.05.2024 | 11:56:58 ] Hinweis
    8. Der Backup-Prozess wurde gestartet.
    10. [ 05.05.2024 | 12:09:29 ] Fehler
    11. Fehler beim Kopieren der Datei Microsoft.VisualStudio.LanguageServices.ConvertTupleToStructCodeRefactoring64.servicehub.service.json:
    12. 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.


    OK, die Class, fängt also Fehler ordentlich ab usw...
    Aber wie kann ich so etwas vermeiden? Dieser Pfad / Datei ist ja irgendwann mal von Visualstudio angelegt worden????

    Beiträge zusammengefügt. ~Thunderbolt
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:


    OK, die Class, fängt also Fehler ordentlich ab usw...
    Aber wie kann ich so etwas vermeiden? Dieser Pfad / Datei ist ja irgendwann mal von Visualstudio angelegt worden????


    Das ist eine Einstellung deines OS welches mit dem Gruppenrichtlinieneditor oder der Regitry aufgehoben werden kann. Fuer letzteres versuche mal in der Registry unter:

    HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem
    den DWORD 'LongPathsEnabled' auf '1' zu setzen.

    @Amelie Ich bin mir da immer nicht sicher ob dieser Reg-Key die Beschränkung von MAX_PATH (260 Zeichen) bei alten APIs wirklich aufhebt. Genaues Erfährst Du hier: learn.microsoft.com/en-us/wind…-limitation?tabs=registry Evtl. noch -> The application manifest must also include the longPathAware element. Und wenn ich das so lese, gilt das erst ab Win10.
    Mfg -Franky-

    @-Franky-
    Nach ersten Test habe ich das wohl gelöst bekommen.

    Habe das: "_LibraryBackUp" gegen "_BackUp" getauscht. Das wären schonmal 7 Zeichen weniger. ;) Das ist das Verzeichnis wo die BackUps reingeschrieben werden.

    Habe mir unter anderem folgendes in eine "LibDrive.manifest" gepackt die im selben Verzeichnis wie die EXE-Datei liegt. So habe ich das in dem Text auf der Webseite verstanden.

    XML-Quellcode

    1. <application xmlns="urn:schemas-microsoft-com:asm.v3">
    2. <windowsSettings>
    3. <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
    4. <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
    5. </windowsSettings>
    6. </application>



    Und die Funktion folgendermaßen geändert.

    VB.NET-Quellcode

    1. Private Async Function CopyFileAsync(file As FileInfo, targetDir As String) As Task
    2. Try
    3. ' Ziel-Dateipfad erstellen
    4. Dim targetFile As String = Path.Combine(targetDir, file.Name)
    5. ' Größeren Puffer verwenden, um die Leistung zu optimieren
    6. Dim bufferSize As Integer = 8 * 1024 * 1024
    7. ' Angezeigten Pfad kürzen
    8. Dim directoryStructure As String() = targetDir.TrimEnd("\"c).Split("\"c)
    9. Dim driveLetter As String = Path.GetPathRoot(targetDir)
    10. Dim formattedPath As String = Path.Combine(driveLetter, String.Join("\", directoryStructure.Take(3)), " .... ", file.Name)
    12. ' Quell- und Zielstreams öffnen
    13. Using sourceStream As FileStream = file.OpenRead(),
    14. destinationStream As New FileStream(targetFile, FileMode.Create, FileAccess.Write, FileShare.None, bufferSize, True)
    15. ' Datei kopieren
    16. Await sourceStream.CopyToAsync(destinationStream)
    17. End Using
    19. ' Fortschritt aktualisieren
    20. Dim fileSize As Long = file.Length ' Größe der Quelldatei
    21. RaiseEvent CopyProgressChanged(Me, New CopyProgressEventArgs(formattedPath))
    22. RaiseEvent CopyProgressChangedSize(fileSize)
    24. Catch ex As UnauthorizedAccessException
    25. ' Behandle Zugriffsfehler
    26. Dim message As String = $"Zugriff auf die Datei {file.Name} verweigert: {ex.Message}"
    27. RaiseEvent CopyWarning(Me, New CopyWarningEventArgs(message))
    28. Catch ex As IOException
    29. ' Behandle andere E/A-Fehler
    30. Dim message As String = $"Fehler beim Kopieren der Datei {file.Name}: {ex.Message}"
    31. RaiseEvent CopyWarning(Me, New CopyWarningEventArgs(message))
    32. Catch ex As Exception
    33. ' Andere Ausnahmen behandeln
    34. Dim message As String = $"Ein unerwarteter Fehler ist aufgetreten beim Kopieren der Datei {file.Name}: {ex.Message}"
    35. RaiseEvent CopyFailed(Me, New CopyFailedEventArgs(message))
    36. CurrentState = CopyState.Failure
    37. Exit Function
    38. End Try
    39. End Function
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Entschuldige die späte Antwort, gibt im Moment viel zu tun :)

    Amelie schrieb:

    Wäre hier noch etwas zu "verbessern"?

    Immer! :)

    Amelie schrieb:

    Public Sub New()
    End Sub


    Wenn du den Constructor nicht braucht, schreib ihn nicht explizit rein. Lass das den Compiler machen.

    Und entferne deinen auskommentierten Code.

    Ansonsten muss ich sagen, ist das wirklich gut gelungen. Daumen hoch :thumbup:
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems
    Meine Privatwebseite: SimonC.eu

    Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
    Ich versuche auf euch zurückzukommen :)

    @Amelie Wenn ich mich richtig erinnere, entwickelst Du Deine Software noch nicht unter Win10 oder? Wenn dem noch so ist, dann wird Dir der Reg-Key bzw. der Teil für das Manifest nichts nützen da das erst ab Windows 10, Version 1607 eingeführt wurde. Du brauchst auch keine extra Manifestdatei neben der Exe liegen zu haben. Das Manifest für Dein Projekt kannst Du direkt in den Projekteigenschaften bearbeiten.
    Mfg -Franky-

    @siycah

    Danke :)
    Ja den "nicht verwendeten" Code nehme ich in der Release Version immer raus.
    Ja und den Konstruktor, las ich mal irgendwo, das man den reinsetzen soll, damit er nicht von "außen" manipuliert werden kann :?:

    @-Franky-

    Genau, ich habe noch Windows 7-64Bit. :thumbsup:

    Thema Manifest.
    Ja das habe ich im Studio unter den "Windows-Einstellungen" gemacht. Las aber irgendwo, das ich diese "Manifest-Datei" neben der Exe-Datei packen sollte.

    Dann hat es evtl gereicht, das ich den Anfang von dem kompletten Zielpfad etwas gekürzt habe um den Fehler mit dem "überlangen Namen" zu beheben??
    Werde das mal austesten :)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Es gibt 2 Möglichkeiten für ein Manifest. Eines das neben der Exe liegt und eines das direkt in die Exe einkompiliert ist. Vorzugsweise verwendet man die zweite Möglichkeit. Da in .NET sowieso ein Manifest mit einkompiliert wird, würde ich auch dieses Manifest bearbeiten und nicht zusätzlich eines neben die Exe legen.
    Mfg -Franky-

    Amelie schrieb:

    Ja und den Konstruktor, las ich mal irgendwo, das man den reinsetzen soll


    Den Constructur musst du nur händisch einbauen, wenn du ein anderes Verhalten brauchst, als das Standardverhalten.
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems
    Meine Privatwebseite: SimonC.eu

    Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
    Ich versuche auf euch zurückzukommen :)

Facebook
Telefonspende