Dateien aus Unterordnern kopieren und am Ziel nummerieren

  • VBScript

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Tschapajew.

    Dateien aus Unterordnern kopieren und am Ziel nummerieren

    Hallo Forum,

    ausgangssituation ist, dass in einem Ordner viele Unterordner mit Dateien liegen. Mein Script soll nun ausgehend vom übergeordneten Ordner, in welchem es auch aufgerufen wird, dessen Namen ermitteln. Dann soll es einen Ordner mit dem Namen des übergeordneten Ordners anlegen, welcher zusätzlich noch den Suffix _files bekommt. Nun soll das Script durch alle unterordner des übergeordneten Ordners iterieren, alle dort befindlichen Dateien in den Ordner [Elternordner]_files kopieren. Dabei ist wichtig, dass alle Dateien am Zielort einen numerischen Präfix bekommen. Das Script soll also vorher zählen, wie viele Dateien es insgesamt zu kopieren hat und anhand der Anzahl von Ziffern in dieser Zahl alle Präfixe mit führenden Nullen auffüllen.
    Mein Script sieht bisher so aus:

    Visual Basic-Quellcode

    1. ' Ordner aus dem aufgerufen wird ermitteln.
    2. currentFolder = CreateObject("WScript.Shell").CurrentDirectory
    4. ' Ordnernamen ermitteln (Nur den letzten teil)
    5. folderName = Right(currentFolder, Len(currentFolder) - InStrRev(currentFolder, "\"))
    7. ' Zielordner definieren
    8. targetFolder = currentFolder & "\" & folderName & "_files"
    10. ' Zielordner anlegen, wenn er noch nicht existiert
    11. Set objFSO = CreateObject("Scripting.FileSystemObject")
    12. If Not objFSO.FolderExists(targetFolder) Then
    13. objFSO.CreateFolder(targetFolder)
    14. End If
    16. ' Zählvariable für Dateinamen
    17. counter = 1
    19. ' Ermittlung, wie viele Führungsnullen gebraucht werden
    20. numDigits = 0
    21. For Each objSubfolder In objFolder.SubFolders
    22. Set objSubfolder = objFSO.GetFolder(objSubfolder.Path)
    23. For Each objFile In objSubfolder.Files
    24. ' Anzahl der Ziffern in der größten Zahl aktualisieren
    25. numDigits = Max(numDigits, Len(counter))
    26. counter = counter + 1
    27. Next
    28. Next
    30. ' Nochmal durch die Unterordner iterieren
    31. counter = 1
    32. For Each objSubfolder In objFolder.SubFolders
    33. Set objSubfolder = objFSO.GetFolder(objSubfolder.Path)
    34. For Each objFile In objSubfolder.Files
    35. ' Datei zum Zielort kopieren und Präfix aus Counter anbringen
    36. objFSO.CopyFile objFile.Path, targetFolder & "\" & Right(String(numDigits, "0") & counter, numDigits) & "-" & objFile.Name
    37. counter = counter + 1
    38. Next
    39. Next


    Leider funktioniert das nicht so, wie ich mir das gedacht habe. Ich Bekomme beim objFolder in Zeile 21 die Fehlermeldung, dass das Objekt erforderlich sei. Dabei dachte ich, ich hätte das oben mit dem Create Statement erzeugt.
    Kann mir hier jemand helfen?

    LG

    Richard

    *Code-BBCode eingefügt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Servus Marcus,

    das hat zumindest nun etwas geholfen. Ich habe mal ein wscript.echo eingefügt, um zu schauen, ob er überhaupt einen Ordner zu greifen bekommt, was auch der Fall ist. Leider scheint es noch Probleme zugeben, wenn die Führungsnullen hochgesetzt werden sollen. Hier mein neues Script:

    Visual Basic-Quellcode

    1. ' Get the current folder
    2. currentFolder = CreateObject("WScript.Shell").CurrentDirectory
    4. ' Get the folder name
    5. folderName = Right(currentFolder, Len(currentFolder) - InStrRev(currentFolder, "\"))
    7. ' Define the target folder
    8. targetFolder = currentFolder & "\" & folderName & "_files"
    10. ' Create the target folder if it does not exist
    11. Set objFSO = CreateObject("Scripting.FileSystemObject")
    12. If Not objFSO.FolderExists(targetFolder) Then
    13. objFSO.CreateFolder(targetFolder)
    14. End If
    16. ' Create a counter for the file naming
    17. counter = 1
    19. ' Find the number of digits in the highest number
    20. numDigits = 0
    21. Set objFolder = objFSO.GetFolder(currentFolder)
    22. For Each objSubfolder In objFolder.SubFolders
    23. Set objSubfolder = objFSO.GetFolder(objSubfolder.Path)
    24. For Each objFile In objSubfolder.Files
    25. wscript.echo(objFile)
    26. ' Update the number of digits in the highest number
    27. numDigits = Max(numDigits, Len(counter))
    28. counter = counter + 1
    29. Next
    30. Next
    32. ' Iterate through all subfolders again
    33. counter = 1
    34. For Each objSubfolder In objFolder.SubFolders
    35. Set objSubfolder = objFSO.GetFolder(objSubfolder.Path)
    36. For Each objFile In objSubfolder.Files
    37. ' Copy the file to the target folder and rename it with the counter
    38. objFSO.CopyFile objFile.Path, targetFolder & "\" & Right(String(numDigits, "0") & counter, numDigits) & "-" & objFile.Name
    39. counter = counter + 1
    40. Next
    41. Next


    Danke für deine Mühe und

    LG

    Richard

    *Nochmal Code-BBCode eingefügt, bitte demnächst selbst machen!*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende