Alle Datein & Unterordner ausser bestimmten Ordner kopieren wie?

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von mikeb69.

    Alle Datein & Unterordner ausser bestimmten Ordner kopieren wie?

    Hallo Leute,

    ich möchte gerne, das alle Datein und Ordner aus einem Bestimmten Ordner kopieren, ausser den Ordner "backup".
    Wie kann ich das machen?
    Möchte nämlich eine Bachup Funktion beim Updater mit einbauen.

    Mit freundlichen Grüßen pc-freack

    Beispiel:

    VB.NET-Quellcode

    1. Dim QuellVerzeichnis As String = "Pfad\zum\Quellverzeichnis"
    2. Dim ZielVerzeichnis As String = "Pfad\zum\Zielverzeichnis"
    4. Dim AusschlussListe As New List(Of String)
    5. AusschlussListe.Add("Pfad\zum\Quellverzeichnis\Unterverzeichnis1")
    6. AusschlussListe.Add("Pfad\zum\Quellverzeichnis\Unterverzeichnis2")
    8. Dim ZielDatei As IO.FileInfo = Nothing
    9. For Each QuellDatei As IO.FileInfo In (New IO.DirectoryInfo(QuellVerzeichnis).GetFiles("*.*", IO.SearchOption.AllDirectories))
    10. For Each AusschlussOrdner As String In AusschlussListe
    11. If Not QuellDatei.DirectoryName.ToLower = AusschlussOrdner.ToLower Then
    12. ZielDatei = New IO.FileInfo(QuellDatei.FullName.Replace(QuellVerzeichnis, ZielVerzeichnis))
    14. If Not ZielDatei.Directory.Exists Then
    15. ' Unterverzeichnis im ZielPfad automatisch erstellen, falls nicht vorhanden.
    16. ZielDatei.Directory.Create()
    17. End If
    19. If Not ZielDatei.Exists Then
    20. QuellDatei.CopyTo(ZielDatei.FullName)
    21. Else
    22. ' Zieldatei bereits vorhanden.
    23. ' Was soll geschehen?
    24. End If
    25. End If
    26. Next
    27. Next

    Hey,

    schau dir mal die Namespace System.IO insbesondere die Klasse File an.
    Um alle dateien und Ordner zu erhalten solltest du eine Funktion schreiben, welche du dann Rekursiv aufrufst.

    lg.

    LucaWelker
    lg.

    LucaWelker

Facebook
Telefonspende