Suche nach gedruckten Dateien

Dim Pfadangabe, Ordner
Dim LogPfad
Dim FilterDatei
Dim Zaehler


Ordner = LCase(InputBox("Please insert the path (eg.: [C:\] or [All] -> for all Partitions)","...","C:\"))  
If Not Right(Ordner,1) = "\" and Not Ordner = "all" then Ordner = Ordner & "\"  

FilterDatei = InputBox("Which file are you looking for?","...","FileName")  
FilterDatei = Replace(FilterDatei , "*" , "")  

LogPfad = "C:\SearchFile_Result.txt"  
Zaehler = 0

set fs = createobject("Scripting.FileSystemObject")  

set DateiInfo = fs.CreateTextfile(LogPfad,True)
DateiInfo.close

set DateiInfo = fs.opentextfile(LogPfad, 8)


If Ordner = "all" then  
	AllesScannen
Else
	Listordner Ordner
End If


Sub AllesScannen()
	
	For i = 65 to 90	
		Ordner = CHR(I) & ":\"  
		Wscript.Echo "Searching: " & Ordner & " for [" & Filterdatei & "]"  
		Listordner Ordner
	next

End Sub


Sub ListOrdner(ordner)
	On Error resume next

	Set ordner = fs.getfolder(ordner)

	For Each file In ordner.files
		Pfadangabe =file.path
		DateiNameTemp = Split(LCase(Pfadangabe) , LCase(FilterDatei))
		If UBound(DateiNameTemp) > 0 then
			DateiInfo.writeline (Pfadangabe)
			Zaehler = Zaehler + 1
		End If
	Next

	For Each Unterordner In Ordner.subfolders
		Pfadangabe = unterordner.path
		
		Listordner unterordner
	next
End Sub

DateiInfo.close

WScript.Echo Zaehler & " Hits. The Result is logged under: " & LogPfad & " abgespeichert. Open Logfile."  

set wshshell=createobject("wscript.shell")  
wshshell.run(LogPfad), 3, true

set wshshell= nothing
Set fs = nothing
set DateiInfo = nothing