Ordner kopieren

  • VBScript

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

    Ordner kopieren

    Hallo,

    ich bin mal wieder ein wenig am Basteln ^^ ich möchte einen Ordner mit allen enthalten Ordnen inklusive den dazugehörigen Datein kopieren. Der Kopiervorgang funktioniert soweit auch, allerdings kopiert er nicht die Unterordner, sondern lediglich die enthaltenen Datein. Dabei sollte er eigentlich die gesamte Ordnerstruktur kopieren. Ich hoffe, Ihr könnt mir helfen..

    Visual Basic-Quellcode

    1. Dim dateisystem, ordner, pfad, unterverzeichnis
    3. pfad = "D:\Ordner"
    4. set dateisystem = CreateObject("Scripting.FileSystemObject")
    5. Set ordner = dateisystem.GetFolder(pfad)
    6. WScript.Echo pfad
    8. For Each unterverzeichnis In ordner.SubFolders
    10. unterverzeichnis.Copy "E:\Test",True
    12. Next


    Vielen Dank für eure Bemühungen.

    Hallo petaod,

    der Tipp mittels Rekursion hat wunderbar funktioniert, vielen Dank an dieser Stelle :D
    ich habe nun aber wieder ein "erneutes" Problem ^^
    Ich möchte nun alle Ordner unter Laufwerk C:\ auflisten, dies funktioniert dank Rekursion soweit wunderbar..
    Allerdings sind beispielsweise Ordner vorhanden wie "Dokumente und Einstellungen" auf denen mit der Zugriff seitens Windows verwehrt ist. Welche Möglichkeit besteht, diese Ordner auszuschließen ?

    Visual Basic-Quellcode

    1. On Error Resume Next
    3. 'Festlegen der Variablen
    4. Dim such_ordner, dateisystem, verzeichnis, UnterVerzeichnis, datei_schreiben, log_datei, log_datei_schreiben, Log, datei
    5. such_ordner = "C:\"
    7. 'Schreiben der Log-Datei
    8. Set log_datei = CreateObject("Scripting.FileSystemObject")
    9. Set log_datei_schreiben = log_datei.CreateTextFile("D:\log.txt")
    11. 'Prozedur zur Auflistung des Verzeichnisbaums
    12. Sub Verzeichnisliste(Verzeichnisname)
    13. Set dateisystem = CreateObject("Scripting.FileSystemObject")
    14. 'Überprüfen ob es Verzeichnisse gibt
    15. If dateisystem.FolderExists(Verzeichnisname) Then
    16. Set verzeichnis = dateisystem.GetFolder(Verzeichnisname)
    17. 'Durchsuchen der Unterverzeichnisse
    18. For Each UnterVerzeichnis In verzeichnis.subfolders
    20. log_datei_schreiben.WriteLine(UnterVerzeichnis)
    21. WScript.echo UnterVerzeichnis.Path
    22. Verzeichnisliste UnterVerzeichnis
    24. Next
    25. End If
    26. End Sub
    28. Verzeichnisliste such_ordner


    ich hätte eventuell daran gedacht:

    Visual Basic-Quellcode

    1. For Each UnterVerzeichnis In verzeichnis.subfolders
    2. If UnterVerzeichnis.Attributes <> 64 Then
    3. log_datei_schreiben.WriteLine(UnterVerzeichnis)
    4. WScript.echo UnterVerzeichnis.Path
    5. Verzeichnisliste UnterVerzeichnis
    6. End If
    7. Next
    8. End If
    9. End Sub


    Jedoch funktioniert dies nicht :(

    Ich konnte das Problem lösen. Falls Interesse besteht, hier mein kurzer Lösungsansatz:
    Ich habe mir mittels eines Skriptes die Verzeichnisseigenschaften des Ordners auslesen lassen, wo er immer stehen geblieben ist. Dabei habe ich herausgefunden, das der Ordner das Attribut 1046 besitzt.
    Dies in der Zeile

    Visual Basic-Quellcode

    1. If UnterVerzeichnis.Attributes <> 1046 Then
    eingetragen und das gewünschte Ergebnis war vorhanden.

    Hallo Forumgemeinde,

    ich bin zum wiederholten mal am verzweifeln ^^ Ich durchsuche eine Verzeichnisstruktur und möchte alle Ordner inklusive Unterordner kopieren. Ich habe dazu auch schon ein Skrip geschrieben, welches noch nicht 100% funktioniert. :(

    Visual Basic-Quellcode

    1. 'Festlegen der Variablen
    2. Dim pfad, verzeichnis, unterverzeichnis, fso
    3. 'Zurodnung der Variablen
    4. pfad = "D:Test\"
    6. 'Prozedur zum Durchsuchen der Verzeichnisse
    7. Sub verzeichnis_durchsuchen (verzeichnispfad)
    9. Set fso = CreateObject("Scripting.FileSystemObject")
    10. If fso.FolderExists(verzeichnispfad) Then
    11. Set verzeichnis = fso.GetFolder(verzeichnispfad)
    13. For Each unterverzeichnis In verzeichnis.SubFolders
    14. If unterverzeichnis.Attributes <> 1046 And unterverzeichnis.Attributes <> 22 Then
    15. WScript.Echo unterverzeichnis.Path
    16. unterverzeichnis.Copy "D:\Test2",vbYes
    17. verzeichnis_durchsuchen unterverzeichnis
    19. End If
    20. Next
    21. End If
    22. End Sub
    24. verzeichnis_durchsuchen (pfad)


    Er kopiert leider immer nur das letzte Verzeichnis im Pfad. Ich möchte gerne, dass er den kompletten Pfad anlegt.

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

Facebook
Telefonspende