Zählen bestimmer Dateiendungen

  • VBScript

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

    Zählen bestimmer Dateiendungen

    Guten Morgen,
    ich habe mir ein Skript gebaut, welches alle Ordner bzw. Unterordner nach einer bestimmten Dateiendung durchsucht. Dies funktioniert soweit auch relativ problemlos. Allerdings möchte ich, dass mir am Ende die Anzahl der gefundenen Dateien ausgegeben wird. Wie könnte ich dies am besten umsetzen ?

    Visual Basic-Quellcode

    1. Dim fs, fs1
    2. Set fs = CreateObject("Scripting.FileSystemObject")
    3. Set fs1 = CreateObject("Scripting.FileSystemObject")
    5. Sub FileSearch(pfad)
    6. Dim ordner,dateien
    7. Set ordner = fs.GetFolder(pfad)
    8. Set dateien = ordner.files
    10. For Each datei In dateien
    11. On Error Resume Next
    12. If LCase(fs.GetExtensionName(datei.Name)) = "doc" Then
    13. WScript.Echo datei
    15. End If
    16. Next
    18. Set unterordner = ordner.subfolders
    20. For Each uo In unterordner
    22. On Error Resume Next
    23. FileSearch(uo)
    25. Next
    27. End Sub
    29. FileSearch ("C:\Dokumente und Einstellungen")


    Vielen Dank für Eure Bemühungen.

    Ich hab zwar noch nie was mit VBS zu tun gehabt, aber es aus neugier mal versucht, ist echt ´ne interessante Sache.

    Visual Basic-Quellcode

    1. Set fs = CreateObject("Scripting.FileSystemObject")
    2. Dim anzahl
    3. anzahl = 0
    5. Sub FileSearch(pfad)
    6. Set ordner = fs.GetFolder(pfad)
    7. Set dateien = ordner.files
    8. For Each datei In dateien
    9. On Error Resume Next
    10. If LCase(fs.GetExtensionName(datei.Name)) = "doc" Then
    11. anzahl = anzahl + 1
    12. WScript.Echo datei
    13. End If
    14. Next
    15. Set unterordner = ordner.subfolders
    16. For Each uo In unterordner
    17. on Error Resume Next
    18. FileSearch(uo)
    19. Next
    20. End Sub
    22. Sub Result
    23. If anzahl = 1 Then
    24. WScript.Echo "Es wurde 1 Datei gefunden"
    25. Else
    26. WScript.Echo "Es wurden " + CStr(anzahl) + " Dateien gefunden"
    27. End If
    28. End Sub
    30. FileSearch ("C:\Dokumente und Einstellungen")
    31. Result


    mfG

    Derfuhr

    Ich hätte diesbezüglich noch eine Frage. Jetzt möchte ich anschließend diese Dateien kopieren, da die Menge der DOC-Dateien nicht unerheblich ist, würde seine eine Art "Fortschrittsbalken" wie er in Windows existiert anbieten. Ich habe in Bezug darauf auch schon etwas gefunden, jedoch funktioniert es noch nicht richtig.

    Visual Basic-Quellcode

    1. quelle = datei
    2. StrZielOrdner = "C:\Test"
    4. Set FSO = CreateObject("Scripting.FileSystemObject")
    5. Set Shell = CreateObject("Shell.Application")
    6. Set Ordner = ObjShell.NameSpace(StrZielOrdner)
    8. ObjOrdner.CopyHere quelle


    Er kopiert hierbei immer den gesamten Ordner und lässt die Vorüberprüfung

    Visual Basic-Quellcode

    1. If LCase(fs.GetExtensionName(datei.Name)) = "doc" Then
    weg.

Facebook
Telefonspende