Dateisuchen

  • VBScript

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ZdeathZ.

    Dateisuchen

    Hallo,

    aus beruflichen Gründen beschäftige ich mich gegenwärtig mit Vbscript. Daher unternehme ich meine ersten Gehversuche mit dieser Skript-Sprache. 8-) Zum Einstieg habe ich diesbezüglich ein wenig im Internet recherchiert und habe ein paar Tutorials bearbeitet. Nun habe ich mir zur Aufgabe gesetzt, ein Skript zu erstellen, welches alle (PST-Datein) unter dem Laufwerk C:\ sucht. Im ersten Schritt, will ich erst einmal alle PST-Datein finden, die sich im Wurzelverzeichnis (C:\) befinden. Unerfreulicherweise funktioniert es noch nicht :(

    Visual Basic-Quellcode

    1. dim Dateisystem, Verzeichnis, Datei, Verzeichnispfad, dateierweiterung
    3. Sub durchsuchen (verzeichnispfad, dateierweiterung) ' Prozedur zum Suchen der Datei
    4. Dim Dateisystem, Verzeichnis, Datei ' Festlegen der variablen
    5. Set Dateisystem = CreateObject("Scripting.FileSystemObject") ' Erzeugen eines Objektes
    6. Set Verzeichnis = Dateisystem.GetFolder(verzeichnispfad) ' Der Variable Verzeichnis das FileSystem-Objekt zuweisen
    7. For Each Datei In Verzeichnis
    8. If InStr(UCase(Dateisystem.GetExtensionName(verzeichnis))) = dateierweiterung Then 'Überprüfung, wenn ExtensionName (dateierweiterung) = der gesuchten Dateierweiterung ist
    9. MsgBox "Datei gefunden"
    11. End If
    13. Next
    15. End Sub
    17. Suchpfad = "C:"
    18. Dateityp = "pst"
    20. Suchergebnis = durchsuchen(Suchpfad, Dateityp)
    22. WScript.Echo "mal gucken" + Suchergebnis

    ZdeathZ schrieb:

    Sub durchsuchen

    ZdeathZ schrieb:

    Suchergebnis = durchsuchen(Suchpfad, Dateityp)

    Eine "Sub" liefert kein "Ergebnis" (anders als ne FUNCTION). Also weist du deinem Ergebnis ein großes "nichts" zu

    Visual Basic-Quellcode

    1. UCase(Dateisystem.GetExtensionName(verzeichnis))) = dateierweiterung

    Und das kann auch nicht gehen, wenn "dateierweiterung" "pst" ist. Denn du wandelst ja VOR dem Vergleich nach GROSSschreibung um (UCase). Wenn schon, dann musst du beides in denselben case wandeln (U oder L)

    Hallo picoflop,

    vielen Dank für die schnelle Hilfe :)
    Ich habe soweit deine Lösungsvorschläge eingearbeitet und das Skript noch einmal etwas modifiziert. Jetzt bringt wenigstens keine Fehlermeldung mehr. Aber die gespeicherte Datei unter C:\ findet er trotz alledem nicht.

    Visual Basic-Quellcode

    1. dim Dateisystem, Verzeichnis, Datei, Verzeichnispfad, dateierweiterung
    4. Function durchsuchen (verzeichnispfad, dateierweiterung) ' Prozedur zum Suchen der Datei
    5. Dim Dateisystem, Verzeichnis, Datei ' Festlegen der variablen
    6. Set Dateisystem = CreateObject("Scripting.FileSystemObject") ' Erzeugen eines Objektes
    7. Set Verzeichnis = Dateisystem.GetFolder(verzeichnispfad) ' Der Variable Verzeichnis das FileSystem-Objekt zuweisen
    8. For Each Datei In Verzeichnis.Files
    9. If LCase(Dateisystem.GetExtensionName(verzeichnis)) = LCase(dateierweiterung) Then 'Überprüfung, wenn ExtensionName (dateierweiterung) = der gesuchten Dateierweiterung ist
    10. MsgBox "Datei gefunden"
    12. End If
    14. Next
    16. End Function
    18. Suchpfad = "C:"
    19. Dateityp = "pst"
    21. Suchergebnis = durchsuchen(Suchpfad, Dateityp)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ZdeathZ“ ()

    petaod schrieb:

    Funktioniert's mit

    Visual Basic-Quellcode

    1. Dateityp = ".pst"
    ?


    funktioniert leider auch nicht.

    Wie ich bereits erwähnte, beschäftige ich micht erst seit ein paar Tagen mit Vbscript. Ist das Vorgehen in meinem Skript erst einmal richtig oder gibt es einen eleganteren Weg, welcher das Suchen von Dateien ermöglicht ?

    @ picoflop

    Visual Basic-Quellcode

    1. Function durchsuchen (verzeichnispfad, dateierweiterung)

    Hier lege ich doch die Funktion an, oder ? Dabei wird doch der Verzeichnispfad und die Dateierweiterung mit übergeben.

    Visual Basic-Quellcode

    1. Suchpfad = "C:\"
    2. Dateityp = ".pst"
    4. Suchergebnis = durchsuchen(Suchpfad, Dateityp)

    Hallo,

    ich will nun das Skript dahingegen ergänzen, das die Möglichkeit besteht, auch alle Unterverzeichnisse zu durchsuchen. Es treten hierbei zwei Probleme auf: zunächst bringt er bei gewissen Ordnern "Erlaubnis verweigert". Etwaige Erklärung meinerseits wäre, dass auf diesen Ordner keinen Zugriff habe. Könnte man dies irgendwie umgehen, dass er dieses Ordner nicht mit in Betrachtung zieht ?
    Das nächste Problem, welches mir aufgefallen ist, betrifft die Suche in den Unterordnern. Ist dieser Ansatz zunächst einmal richtig, den ich gewählt habe ?

    Visual Basic-Quellcode

    1. 'Festelgen der Variablen
    2. Dim Dateisystem, Verzeichnis, Datei, Verzeichnispfad, Unterverzeichnis, PST_Sicherung
    3. PST_Sicherung = "D:\PST-Datein"
    6. 'Anlegen des Verzeichnissen PST-Datein
    7. Set Verzeichnisname = CreateObject("Scripting.FileSystemObject")
    8. If Not Verzeichnisname.FolderExists (PST_Sicherung) Then
    9. Verzeichnisname.CreateFolder (PST_Sicherung)
    10. Else
    11. End If
    13. 'Funktion zum Durchsuchen der Verzeichnisse
    14. Function durchsuchen (verzeichnispfad, dateierweiterung) ' Prozedur zum Suchen der Datei
    16. Set Dateisystem = CreateObject("Scripting.FileSystemObject") ' Erzeugen eines Objektes
    17. Set Verzeichnis = Dateisystem.GetFolder(verzeichnispfad) ' Der Variable Verzeichnis das FileSystem-Objekt zuweisen
    19. For Each Datei In Verzeichnis.Files
    21. If LCase(Dateisystem.GetExtensionName(Datei.Name)) = LCase(dateierweiterung) Then 'Überprüfung, wenn ExtensionName (dateierweiterung) = der gesuchten Dateierweiterung ist
    22. Datei.Copy(PST_Sicherung)
    24. End If
    25. Next
    26. 'Durchsuchen der Unterverzeichnisse
    27. For Each Unterverzeichnis In Verzeichnis.SubFolders
    28. WScript.Echo Unterverzeichnis
    30. durchsuchen Unterverzeichnis.Path, Dateityp
    31. Next
    32. End Function
    35. Suchpfad = "C:\"
    36. Dateityp = "pst"
    38. Suchergebnis = durchsuchen(Suchpfad, Dateityp)
    40. WScript.Echo Suchergebnis


    Schon einmal vielen Dank für Eure Bemühungen.-

    Gruß

    ZDeathZ