Suche Programm/Tool "Verzeichnis nach Dateien scannen" Allgemein

[crusher]

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

 

[xus77]

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 .

Private Sub Form_Load() 


Dim sVerzeichnis As String
Dim sTextdatei As String
Dim sDatei As String
Dim iDatei As Integer

sTextdatei = Environ("TEMP") & "\Ausgabe.txt"
sVerzeichnis = "C:\WINNT"
'=> hier der suchende verzeichnis / ordner

iDatei = FreeFile
Open sTextdatei For Output As #iDatei

sDatei = Dir(sVerzeichnis & "\*.*")
While Len(sDatei)
If sDatei <> "." And sDatei <> ".." Then
Print #iDatei, sDatei
End If
sDatei = Dir
Wend
Close #iDatei

End Sub


Private Sub CommandButton1_Click()
Dim suchwort As String
Dim zeile As String
Dim gefunden As Boolean
Dim wert As Integer

wert = 0

suchwort = "Angler.bmp"
'=> hier die zu suchende datei 

Dateiname = Environ("TEMP") & "\Ausgabe.txt"
Open Dateiname For Input As #1
While Not EOF(1)
Line Input #1, zeile
If InStr(zeile, suchwort) <> 0 Then
wert = wert + 1
End If
Wend

If wert > 0 Then
MsgBox "gesuchtes wort vorhanden ", vbOKOnly
Else
MsgBox "Wort nicht gefunden ", vbOKOnly
End If
End Sub