Kopieren von Dateien in individuellen Unterordnern

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Kopieren von Dateien in individuellen Unterordnern

    Hey Leute,

    ich hab ein Problem und komm echt nicht mehr weiter, und zwar versuche ich aus einem unbestimmten Ordner die Dateien, dieUnterordner,sowie die Dateien der Unterordner zu kopieren. Ich habe derzeit folgenden Code:

    VB.NET-Quellcode

    1. Private Function OrdnerKopieren()
    4. Dim DirInfo As New DirectoryInfo(SourcePath)
    5. Dim Directories As List(Of DirectoryInfo) = DirInfo.GetDirectories.ToList
    6. Dim Files As List(Of FileInfo) = DirInfo.GetFiles.ToList
    9. For Each oDir As DirectoryInfo In Directories
    10. Dim NewDestinationPath As String = Path.Combine(DestinationPath, oDir.Name)
    11. If Not Directory.Exists(NewDestinationPath) Then
    12. Directory.CreateDirectory(NewDestinationPath)
    13. End If
    14. Next
    16. For Each oFile As FileInfo In Files
    17. Dim NewFilename As String = Path.Combine(DestinationPath, oFile.Name)
    18. File.Copy(oFile.FullName, NewFilename)
    19. Next
    22. For Each oDir As DirectoryInfo In Directories
    23. Dim DirSubPath As New DirectoryInfo(Path.Combine(DestinationPath, oDir.Name))
    24. Dim SubFile As List(Of FileInfo) = DirSubPath.GetFiles.ToList
    26. For Each soFile As FileInfo In SubFile
    27. Dim NewSubFilename As String = Path.Combine(DestinationPath & oDir.Name, soFile.Name)
    28. File.Copy(soFile.FullName, NewSubFilename)
    29. Next
    30. Next
    32. Console.ReadLine()
    33. End Function


    Wenn ich das Programm teste, bekomme Ich nicht die Dateien kopiert, die in den Unterordnern sind.
    Bitte um Hilfe.

    LG

    Setze in Dein Programm einen Haltepunkt (F9) rein. Steppe mit F10 von Befehl zu befehl.
    Klicke auf eine Variable und drücke Shift+F9, da wird sie Dir angezeigt.
    Nun musst Du nur noch überprüfen, on in den Variablen das drinsteht, was Du glaubst, dass drinstehen soll. Wenn nicht, hast Du den Fehler gefunden. :thumbup:
    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!

    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region "Syncronisation Teil 1:"
    2. ' Ordner erstellen, Dateien löschen, Dateien ändern, neue Dateien erstellen
    3. Public Sub CopyFolder_Sync(ByVal sSrcPath As String, ByVal sDestPath As String)
    5. ' Falls Zielordner nicht existiert, jetzt erstellen
    6. If Not Directory.Exists(sDestPath) Then
    7. Directory.CreateDirectory(sDestPath)
    8. End If
    10. ' Reihenfolge:
    11. ' 1. Löschen (damit das, was gelöscht werden muss, schon mal weg ist
    12. ' und nicht zum Vergleichen für die Änderungen herangezogen werden
    13. ' muss -> spart Zeit!)
    14. ' 2. Ändern (erst in Frage kommende Dateien ändern, dann Dateien, die
    15. ' neu erstellt werden müssen, neu erstellen, weil sonst auch die neu
    16. ' erstellten Dateien beim Vergleich der Änderungen mit geprüft
    17. ' würden -> spart Zeit!)
    18. ' 3. Neue Dateien erstellen
    20. ' Alle Dateien des Ziel-Ordners LÖSCHEN, die nicht im
    21. ' Quell-Ordner vorhanden sind:
    22. 'Dateien_Im_Zielordner_Löschen(sSrcPath, sDestPath)
    24. ' Alle Dateien des Ziel-Ordners ÄNDERN durch Löschen und Kopieren,
    25. ' die im Quell-Ordner mit einem anderen Änderungsdatum vorhanden sind:
    26. Dateien_Im_Zielordner_Ändern(sSrcPath, sDestPath)
    28. ' Alle Dateien im Ziel-Ordner ERSTELLEN, die dort fehlen:
    29. Dateien_Im_Zielordner_Erstellen(sSrcPath, sDestPath)
    31. ' Jetzt alle Unterordner ermitteln und die CopyFolder-Sub
    32. ' rekursiv(aufrufen)
    33. Dim sDirs() As String = Directory.GetDirectories(sSrcPath)
    34. Dim sDir As String
    35. For i As Integer = 0 To sDirs.Length - 1
    36. If sDirs(i) <> sDestPath Then
    37. sDir = sDirs(i).Substring(sDirs(i).LastIndexOf("\") + 1)
    38. CopyFolder_Sync(sDirs(i).ToString & "\", sDestPath & sDir & "\")
    39. End If
    40. Next i
    46. End Sub
    48. Private Sub Dateien_Im_Zielordner_Löschen(ByVal sSrcPath As String, _
    49. ByVal sDestPath As String)
    51. Dim sFiles() As String = Directory.GetFiles(sDestPath)
    52. Dim sFile As String
    54. For i As Integer = 0 To sFiles.Length - 1
    55. sFile = sFiles(i).Substring(sFiles(i).LastIndexOf("\") + 1)
    57. If Not File.Exists(sSrcPath & sFile) Then
    58. File.Delete(sDestPath & sFile)
    59. End If
    60. Next i
    61. End Sub
    63. Private Sub Dateien_Im_Zielordner_Ändern(ByVal sSrcPath As String, _
    64. ByVal sDestPath As String)
    66. Dim sFiles() As String = Directory.GetFiles(sDestPath)
    67. Dim sFile As String
    69. For i As Integer = 0 To sFiles.Length - 1
    70. sFile = sFiles(i).Substring(sFiles(i).LastIndexOf("\") + 1)
    72. If File.Exists(sSrcPath & sFile) Then
    73. Dim DestFile As New FileInfo(sDestPath & sFile)
    74. Dim SrcFile As New FileInfo(sSrcPath & sFile)
    76. If DestFile.LastWriteTime <> SrcFile.LastWriteTime Then
    77. File.Delete(sDestPath & sFile)
    78. File.Copy(sSrcPath & sFile, sDestPath & sFile)
    79. ListBox4.Items.Add(sFile)
    80. End If
    81. End If
    83. Next i
    85. Panel4.Show()
    86. End Sub
    88. Private Sub Dateien_Im_Zielordner_Erstellen(ByVal sSrcPath As String, _
    89. ByVal sDestPath As String)
    91. Dim sFiles() As String = Directory.GetFiles(sSrcPath)
    92. Dim sFile As String
    94. ProgressBar1.Maximum = sFiles.Length
    96. For i As Integer = 0 To sFiles.Length - 1
    97. sFile = sFiles(i).Substring(sFiles(i).LastIndexOf("\") + 1)
    99. If Not File.Exists(sDestPath & sFile) Then
    100. File.Copy(sSrcPath & sFile, sDestPath & sFile)
    101. ListBox4.Items.Add(sFile)
    102. End If
    104. ProgressBar1.Value = i
    107. Next i
    108. ProgressBar1.Value = sFiles.Length
    109. Button_Synchronisieren.Enabled = True
    111. Label4.Text = "Es wurden " & ListBox4.Items.Count & vbNewLine & "Daten aktualisiert!"
    113. Panel4.BringToFront()
    114. ListBox4.BringToFront()
    115. Label4.BringToFront()
    119. End Sub
    120. #End Region
    121. #Region "Syncronisation Teil 2:"
    122. ' Ordner im Ziel löschen, wenn es sie in der Quelle nicht gibt"
    123. Public Sub DeleteFolder_Sync(ByVal sSrcPath As String, _
    124. ByVal sDestPath As String)
    126. ' Falls Zielordner in der Quelle nicht existiert,
    127. ' jetzt im Ziel löschen:
    128. If Not Directory.Exists(sSrcPath) Then
    129. Directory.Delete(sDestPath, True)
    130. End If
    132. ' Jetzt alle Unterordner ermitteln und die
    133. ' DeleteFolder-Sub rekursiv aufrufen:
    134. Try
    135. Dim sDirs() As String = Directory.GetDirectories(sDestPath)
    136. Dim sDir As String
    137. For i As Integer = 0 To sDirs.Length - 1
    138. If sDirs(i) <> sSrcPath Then
    139. sDir = sDirs(i).Substring(sDirs(i).LastIndexOf("\") + 1)
    140. DeleteFolder_Sync(sSrcPath & sDir & "\", sDirs(i).ToString & "\")
    141. End If
    142. Next i
    143. Catch ex As Exception
    144. End Try
    145. End Sub
    146. #End Region


    Code ist nicht von mir ! Hatte ich mal in mein eigenes Prog. eingebaut :thumbsup:

    Klasse. C&P-Code, der nicht verstanden wird und nur noch mehr Fragen aufwirft. :thumbdown:
    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!

    Hey RodFromGermany,

    Danke, das hat mir echt geholfen, den ich habe bemerkt, das bei der Variable 'SubDirPath' die Quellenangabe mit der Zielangabe vertauscht wurde:

    VB.NET-Quellcode

    1. For Each oDir As DirectoryInfo In Directories
    2. Dim DirSubPath As New DirectoryInfo(Path.Combine(SourcePath, oDir.Name)) // vorher war es DestinationPath
    3. Dim SubFile As List(Of FileInfo) = DirSubPath.GetFiles.ToList // Deshalb war SubFile: Count = 0
    5. For Each soFile As FileInfo In SubFile
    6. Dim NewSubFilename As String = Path.Combine(DestinationPath & "\" & oDir.Name, soFile.Name)
    7. File.Copy(soFile.FullName, NewSubFilename)
    8. Next
    9. Next

    bluray schrieb:

    Danke, das hat mir echt geholfen

    Dann drücke den Hilfreich-Button und schließe den Thread mit Erledigt. :thumbup:
    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!

Facebook
Telefonspende