Copy Directory mit Pfaden in denen sich Umlaute befinden

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Copy Directory mit Pfaden in denen sich Umlaute befinden

    Hallo,

    ich habe ein Datensicherungsprogramm geschrieben was auch funktioniert.
    Ausser wenn ein Pfad mit "Ü, Ä, Ö, etc" kopiert werden soll.

    Hier mein Code wo ich (glaube) was ändern muss:

    VB.NET-Quellcode

    1. Try
    2. Do While Zahler <> GesamtOrdner
    3. SicherungsItem = ListBoxSicherungsdaten.Items(Zahler)
    6. Dim Info As New System.IO.DirectoryInfo(SicherungsItem)
    7. AktuellerPfad = Speicherplatz & SpeicherDatumString & Info.Name
    9. My.Computer.FileSystem.CreateDirectory(AktuellerPfad)
    13. tbLog.Text = tbLog.Text & vbCrLf & AktuellerPfad & " < Erfolgreich gesichert"
    15. Dim Grosse As Integer
    16. Grosse = Sicherungsdateien.Length
    19. Sicherungsdateien = SicherungsItem
    21. 'Sicherungsdateien - Umlaute müssen in eine andere Codierung gebracht werden . System.Text.Encoding.UTF8 ??
    23. Zahler = Zahler + 1
    25. My.Computer.FileSystem.CopyDirectory(Sicherungsdateien, AktuellerPfad, FileIO.UIOption.AllDialogs)
    26. Loop
    28. Catch ex As Exception
    29. MsgBox("Fehler: " & vbCrLf & ex.Message)
    30. End Try


    Vilen Dank schonmal für hilfe :) :thumbsup:

    Dies funktioniert:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim di = New System.IO.DirectoryInfo("C:\Temp\äöüÄÖÜß\")
    3. di.MoveTo("c:\Temp\ßüöäÜÖÄ\")
    4. End Sub
    Beachte den System.IO-Namespace.
    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!

    Kopiere den Code, die Pfade musste natürlich anpassen.
    Klich auf DirectoryInfo und drück dann auf F1. Da wird Dir geholfen: MSDN.
    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!

    Nein, wird alles korrekt angezeigt und korrekt kopiert, solange ich keine Pfade mit Ü etc habe...


    @ RodfromGermany:

    Habe den Pfad nun so geändert, wie bekomm ich es jetzt hin das er "FileIO.UIOption.AllDialogs" wieder anzeigt (Dateien Überschreiben und Statusbalken wie viel er kopiert hat)

    VB.NET-Quellcode

    1. Try
    2. Do While Zahler <> GesamtOrdner
    3. SicherungsItem = ListBoxSicherungsdaten.Items(Zahler)
    9. Dim Info As New System.IO.DirectoryInfo(SicherungsItem)
    10. AktuellerPfad = Speicherplatz & SpeicherDatumString & Info.Name
    12. My.Computer.FileSystem.CreateDirectory(AktuellerPfad)
    16. tbLog.Text = tbLog.Text & vbCrLf & AktuellerPfad & " < Erfolgreich gesichert"
    18. Dim Grosse As Integer
    19. Grosse = Sicherungsdateien.Length
    22. Sicherungsdateien = SicherungsItem
    24. 'Sicherungsdateien - Umlaute müssen in eine andere Codierung gebracht werden . System.Text.Encoding.UTF8 ??
    26. Zahler = Zahler + 1
    28. Dim di = New System.IO.DirectoryInfo(Sicherungsdateien)
    29. di.MoveTo(AktuellerPfad)
    31. ' My.Computer.FileSystem.CopyDirectory(Sicherungsdateien, AktuellerPfad, FileIO.UIOption.AllDialogs)
    32. Loop
    34. Catch ex As Exception
    35. MsgBox("Fehler: " & vbCrLf & ex.Message)
    36. End Try

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

    Was passier5t, wenn Du mit diesem Code arbeitest:

    VB.NET-Quellcode

    1. ListBox1.Items.AddRange(New IO.DirectoryInfo("c:\Temp\Test").GetDirectories())

    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!

    Nein, also:

    Ich Suche per Button einen Pfad aus und schreibe den Pfad dann in eine ListBox die ich auch abspeichere.

    Dann gebe ich mit dem oben genannten Befehl, jeden Pfad
    in der Listbox
    weiter und kopiere alle Pfade dann in einen neuen Ordner.

    Das kommt jetzt mit dem neuen Codeabschnitt:

    Mit welchem Pfad kommt diese Meldung?
    In welcher Codezeile?
    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!

    @schorge:
    Für Pfade nutz doch bitte path.combine.

    //Edit:
    Offtopic: Übrigends ist das Bild in Deinem Userinterface kein 'Tresor', sondern ein hochwirksames Datenlöschgerät.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „big-d“ ()

    In meiner Schleife mit dem Code hier:

    VB.NET-Quellcode

    1. My.Computer.FileSystem.CopyDirectory(Sicherungsdateien, AktuellerPfad, FileIO.UIOption.AllDialogs)


    Kommt der Fehler das ein Illegales Zeichen im Pfad ist ( also nach dem Bild bei Item(2), da dort ein Ö drin ist)

    Nehme ich den hier vorgeschlagenen Code zum Kopieren:

    VB.NET-Quellcode

    1. Dim di = New System.IO.DirectoryInfo(Sicherungsdateien)
    3. di.MoveTo(AktuellerPfad)


    Kommt wie auf dem Bild der Fehler das er die Datei ersetzen will...


    P.S. das mit dem Tresor bzw. Datenlöschgerät ist mir egal, das Datensicherungsprogramm ist für jemand "älteres" der Ordner einfach sicher - soll - kann ?( ?( ^^

    Object Browser schrieb:

    System.IO.IOException: An attempt was made to move a directory to a different volume. -or-destDirName already exists.-or-You are not authorized to access this path.-or- The directory being moved and the destination directory have the same name.
    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!

    Sorry, aber ich komme bei dem Punkt irgendwie nicht weiter :(

    Hab das jetzt mal so gemacht, kommt aber immernoch "Illegales Zeichen"

    VB.NET-Quellcode

    1. If System.IO.Directory.Exists(Sicherungsdateien) Then
    2. MsgBox("Die Dateien sind schon vorhanden")
    3. Else : di.MoveTo(AktuellerPfad)
    4. End If

    schorge schrieb:

    kommt aber immernoch "Illegales Zeichen"
    Welches Zeichen bei welchem Befehl?
    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!

    In Zeile 65 gibt er den Fehler aus mit Illegalem Zeichen:

    Habe noch etwas "rumgebastelt" sodass mit meiner Funktion
    CleanFilename in Zeile 56 alle Umlaute durch "" ersetzt werden, aber das geht auch nicht, kommt trotzdem
    Illegales Zeichen .... :wacko:



    VB.NET-Quellcode

    1. Private Sub btSichern_Click(sender As Object, e As EventArgs) Handles Button2.Click
    2. Dim SpeicherortDialog As New FolderBrowserDialog
    3. Dim AktuellerPfad As String
    4. Dim Gesamtzahler As Integer
    5. Dim Zahler As Integer
    6. Dim GesamtOrdner As Integer
    7. Dim SicherungsItem As String
    9. Speicherdatum = Date.Today
    11. SpeicherortDialog.ShowNewFolderButton = False
    12. SpeicherortDialog.Description = "Bitte Externe Festplatte auswählen"
    14. If SpeicherortDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
    16. SpeicherortDialog.RootFolder = Environment.SpecialFolder.MyComputer
    17. Speicherplatz = SpeicherortDialog.SelectedPath
    18. tbStandartSpeicherPfad.Text = Speicherplatz
    20. GesamtOrdner = ListBoxSicherungsdaten.Items.Count
    22. Sicherungsdateien = ListBoxSicherungsdaten.Items(0)
    23. Gesamtzahler = 0
    24. Zahler = 0
    26. SpeicherDatumString = "\" & Speicherdatum & "\"
    27. REM My.Computer.FileSystem.CreateDirectory(Speicherplatz & SpeicherDatumString)
    30. Try
    31. Do While Zahler <> GesamtOrdner
    32. SicherungsItem = ListBoxSicherungsdaten.Items(Zahler)
    34. Dim Info As New System.IO.DirectoryInfo(SicherungsItem)
    35. AktuellerPfad = Speicherplatz & SpeicherDatumString & Info.Name
    37. My.Computer.FileSystem.CreateDirectory(AktuellerPfad)
    39. tbLog.Text = tbLog.Text & vbCrLf & AktuellerPfad & " < Erfolgreich gesichert"
    41. Dim Grosse As Integer
    42. Grosse = Sicherungsdateien.Length
    44. Sicherungsdateien = SicherungsItem
    45. 'Sicherungsdateien - Umlaute müssen in eine andere Codierung gebracht werden . System.Text.Encoding.UTF8 ??
    47. Zahler = Zahler + 1
    49. 'Dim di = New System.IO.DirectoryInfo(Sicherungsdateien)
    51. 'If System.IO.Directory.Exists(Sicherungsdateien) Then
    52. 'MsgBox("Die Dateien sind schon vorhanden")
    53. 'Else : di.MoveTo(AktuellerPfad)
    54. 'End If
    55. Dim SicherungsdateinOu As String
    56. SicherungsdateinOu = CleanFilename(Sicherungsdateien, sChar:="_")
    58. Sicherungsdateien = SicherungsdateinOu
    61. My.Computer.FileSystem.CopyDirectory(Sicherungsdateien, AktuellerPfad, FileIO.UIOption.AllDialogs)
    62. Loop
    64. Catch ex As Exception
    65. MsgBox("Fehler: " & vbCrLf & ex.Message)
    66. End Try
    68. MsgBox("Die Dateien" & vbCrLf & Sicherungsdateien & vbCrLf & "wurden erfolgreich gespeichert")
    70. Else : MsgBox("Fehler!")
    71. End If
    72. End Sub
    74. ''' <summary>
    75. ''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
    76. ''' </summary>
    77. ''' <param name="sFilename">Dateiname ohne Pfadangabe</param>
    78. ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen
    79. ''' im Dateinamen</param>
    80. Public Function CleanFilename(ByVal sFilename As String, _
    81. Optional ByVal sChar As String = "") As String
    83. ' alle nicht zulässigen Zeichen ersetzen
    84. Return System.Text.RegularExpressions.Regex.Replace( _
    85. sFilename, "[ßüöäÜÖÄ]", sChar)
    86. End Function

Facebook
Telefonspende