Suche ein Script um Dateien rekursiv zu durchsuchen

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mono.

    Suche ein Script um Dateien rekursiv zu durchsuchen

    Hallo,

    ich suche ein Script mit dem man rekursiv mehrere Dateien die sich in einer Ordnerstruktur befinden nach einem String durchsuchen kann, welcher dann aus der Datei gelöscht wird.

    Ich habe leider nichts finden können, was dem nahe kommt.

    Ich schreibe Scripte sonst nur mit der Powershell und muss aus Kompatibilitätsgründen jetzt auf ein VB Script zurück greifen.
    Hi und Willkommen,

    du suchst also jemanden der die Arbeit für dich macht?

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Const startDir = "C:\temp"
    2. const searchFor = "Test"
    3. const replaceWith = ""
    4. Call Main
    5. Sub Main
    6. Set oFSO = CreateObject("Scripting.FileSystemObject")
    7. Set oFolder = oFSO.GetFolder(startDir)
    8. Recurse(oFolder)
    9. MsgBox("Done")
    10. End Sub
    11. Sub Recurse(oFldr)
    12. If IsAccessible(oFolder) Then
    13. For Each oSubFolder In oFldr.SubFolders
    14. Recurse oSubFolder
    15. next
    16. End if
    17. For Each oFile In oFldr.Files
    18. If Instr(LCase(oFile.Name), searchFor) > 0 Then
    19. On Error Resume Next
    20. oFile.Name = Replace(LCase(oFile.Name), searchFor, replaceWith)
    21. on Error Goto 0
    22. End if
    23. Next
    24. End Sub
    25. Function IsAccessible(oFolder)
    26. On Error Resume Next
    27. IsAccessible = (oFolder.SubFolders.Count >= 0)
    28. On error Goto 0
    29. End Function


    Musst du dann für deine Bedürfnisse anpassen.
    Das ist meine Signatur und sie wird wunderbar sein!