Bestimmte Ordner bei Suche nach Dateien angeben

  • VBScript

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

    Bestimmte Ordner bei Suche nach Dateien angeben

    Hallo,
    mir wurde in diesem Forum schon super weitergeholfen und mein Script ist fast durch.

    VB.NET-Quellcode

    1. Dim objFS, objFile
    2. Dim fso As Object
    4. Set fso = CreateObject("Scripting.FileSystemObject")
    6. strOrdner = "c:\exceltemp"
    7. strOrdner1 = "c:\exceltemp\1"
    8. strOrdner2 = "c:\exceltemp\2"
    10. For Each oFile In fso.GetFolder(strOrdner).Files
    11. If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
    12. fso.MoveFile oFile.Path, "C:\Zielordner\"
    14. End If
    15. Next
    16. For Each oFile In fso.GetFolder(strOrdner1).Files
    17. If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
    18. fso.MoveFile oFile.Path, "C:\Zielordner\"
    20. End If
    21. Next
    22. For Each oFile In fso.GetFolder(strOrdner2).Files
    23. If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
    24. fso.MoveFile oFile.Path, "C:\Zielordner\"
    26. End If
    27. Next
    29. End Sub


    Ich frage mich nun und bin mir sicher , dass es eine elegantere Lösung gibt. Ich möchte bestimmte Ordner und deren Unterordner durchsuchen.

    Viele Grüße

    Normal rufe ich das dann rekursiv auf.

    ungetesteter Lösungsvorschlag:

    Visual Basic-Quellcode

    1. option explicit
    2. Dim fso, oFile, oFolder
    4. const Quelle ="c:\exceltemp"
    5. const Ziel="C:\Zielordner\"
    7. Set fso = CreateObject("Scripting.FileSystemObject")
    9. errverschieben Quelle
    11. sub errverschieben(byval Ordner)
    12. For Each oFolder In fso.GetFolder(Ordner).SubFolders
    13. errverschieben oFolder.path
    14. Next
    15. For Each oFile In fso.GetFolder(Ordner).Files
    16. If Not (InStr(1, ucase(fso.GetFileName(oFile.Path)), "ERR", 1) > 0) Then
    17. if not fso.FileExists (Ziel & oFile.name) and fso.folderexists(Ziel) then
    18. fso.MoveFile oFile.Path, Ziel
    19. else
    20. msgbox "Zielordner fehlt oder" & vblf & "Datei existiert schon:" & vblf & oFile.Name, vbokonly+vbcritical
    21. end if
    22. End If
    23. Next
    24. end sub
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook