Suche Programm/Tool "Verzeichnis nach Dateien scannen"

  • Allgemein

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Suche Programm/Tool "Verzeichnis nach Dateien scannen"

    hi!

    Ich hoffe dass ich hier mit meiner Anfrage recht am Platz bin ;)


    Ist es möglich ein Programm/Tool zu bekommen, welches ein bestimmtes Verzeichnis mit seinen Unterordnern nach bestimmten Dateien durchsucht und anschliessend loggt, falls eine der vordefinierten Dateien fehlt?

    Ich habe mir das so vorgestellt:
    Das Tool soll
    - ...das Verzeichnis nach Ordnern durchsuchen
    - ...anschliessend in jedem der gefundenen Ordnern nach den Datei-typen *.xxx, *.yyy und *.zzz suchen
    - Falls eine dieser Dateien fehlt, wird dies in einem Logfile protokolliert; etwa: "Ordnername, xxx-file missing, zzz-file missing")
    - Dabei ist es auch in Ordnung, wenn ein Ordner mehr als jeweils einen der vordefinierten Dateitypen enthält; z.B.: "zwei xxx-files": ist ok --> kein Logeintrag; im Sinne von "mindestens ein "*.xxx, *.yyy und *.zzz"-File


    Wäre so etwas realisierbar?

    Danke im Vorraus,
    gruß,
    crusher
    [FONT="Courier New"]
    [SIZE="1"]
    8888888888888888888888888888888/\8\8888888888MY REQUESTS! KLICK FOR MORE INFORMATION !
    8888___888_8__888__88__8888____\8\8\___888888__888_8__8888UPLOADS:[_1][_2][_3][_4][_5]
    888/'___\/\`'__\/\8\/\8\88/',__\\8\88_8`\88/'__`\/\`'__\88[_6][07][_8][_9][10][11][12]
    88/\8\__/\8\8\/8\8\8\_\8\/\__,8`\\8\8\8\8\/\88__/\8\8\/888[13][14][15][16][COLOR="Sienna"][17][/color][COLOR="Sienna"][18][/color][19]
    88\8\____\\8\_\88\8\____/\/\____/8\8\_\8\_\8\____\\8\_\888[20][21][22][23][24][25][26]
    888\/____/8\/_/888\/___/88\/___/888\/_/\/_/\/____/8\/_/888[27][28][29][30][31]88888888
    [/SIZE]
    [/FONT]
  • aber klar geht recht einfach mit vb,hier der code .
    kann dir bestimmt jemand eine exe drausmachen bzw. kannst es auch mit exel testen einfach einen button erstellen code einfügen und fertig .

    Quellcode

    1. Private Sub Form_Load()
    2. Dim sVerzeichnis As String
    3. Dim sTextdatei As String
    4. Dim sDatei As String
    5. Dim iDatei As Integer
    6. sTextdatei = Environ("TEMP") & "\Ausgabe.txt"
    7. sVerzeichnis = "C:\WINNT"
    8. '=> hier der suchende verzeichnis / ordner
    9. iDatei = FreeFile
    10. Open sTextdatei For Output As #iDatei
    11. sDatei = Dir(sVerzeichnis & "\*.*")
    12. While Len(sDatei)
    13. If sDatei <> "." And sDatei <> ".." Then
    14. Print #iDatei, sDatei
    15. End If
    16. sDatei = Dir
    17. Wend
    18. Close #iDatei
    19. End Sub
    20. Private Sub CommandButton1_Click()
    21. Dim suchwort As String
    22. Dim zeile As String
    23. Dim gefunden As Boolean
    24. Dim wert As Integer
    25. wert = 0
    26. suchwort = "Angler.bmp"
    27. '=> hier die zu suchende datei
    28. Dateiname = Environ("TEMP") & "\Ausgabe.txt"
    29. Open Dateiname For Input As #1
    30. While Not EOF(1)
    31. Line Input #1, zeile
    32. If InStr(zeile, suchwort) <> 0 Then
    33. wert = wert + 1
    34. End If
    35. Wend
    36. If wert > 0 Then
    37. MsgBox "gesuchtes wort vorhanden ", vbOKOnly
    38. Else
    39. MsgBox "Wort nicht gefunden ", vbOKOnly
    40. End If
    41. End Sub
    Alles anzeigen