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
    6. Sub Main
    7. Set oFSO = CreateObject("Scripting.FileSystemObject")
    8. Set oFolder = oFSO.GetFolder(startDir)
    9. Recurse(oFolder)
    10. MsgBox("Done")
    11. End Sub
    13. Sub Recurse(oFldr)
    15. If IsAccessible(oFolder) Then
    16. For Each oSubFolder In oFldr.SubFolders
    17. Recurse oSubFolder
    18. next
    19. End if
    20. For Each oFile In oFldr.Files
    21. If Instr(LCase(oFile.Name), searchFor) > 0 Then
    22. On Error Resume Next
    23. oFile.Name = Replace(LCase(oFile.Name), searchFor, replaceWith)
    24. on Error Goto 0
    25. End if
    26. Next
    28. End Sub
    30. Function IsAccessible(oFolder)
    31. On Error Resume Next
    32. IsAccessible = (oFolder.SubFolders.Count >= 0)
    33. On error Goto 0
    34. End Function


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

Facebook
Telefonspende