So, eben mal den Stapel Papier durchwühlt, der sich aus bewahrenswerten Resten diverser PC-Zeitschriften zusammensetzt, und da war´s: PC WELT 10/2002. Damit ich´s nicht wieder vergesse, habe ich ein VBSkript draus gemacht, das ein Array mit den von mir gewünschten Dateitypen enthält.
Der Tipp funktioniert wie folgt: Es wird der Filter von Textdateien (das ist die
GUID in der Konstanten "strSearchVal") gesetzt. Damit bietet sich das aber auch wirklich nur für Textdatei-Typen wie
HTML, PHP,
XML und Co. an.
Hier mal der Skriptcode, der übrigens auch den Eintrag aktiviert, den ich in meinem letzten Posting ansprach:
Code:
On Error Resume Next
Const strSearchKey = "
HKCR\%1\PersistentHandler\"
Const strSearchVal = "{5e941d80-bf96-11cd-b579-08002b30bfeb}"
Const strFilterPath = _
"
HKLM\SYSTEM\CurrentControlSet\Control\ContentIndex\FilterFilesWithUnknownExtensions"
Dim strTypes
strTypes = Array(".xml", _
".xsl", _
".xsd", _
".dtd", _
".htm", _
".html", _
".shtml", _
".php")
' Der Unterstrich am Ende der obigen Zeilen ist eine Anweisung
' für den Interpreter, dass es in der jeweils nächsten Zeile
' weitergeht. Ansonsten wäre eine Fehlermeldung die Folge!
Dim Sh
Set Sh = CreateObject("WScript.Shell")
Dim strCurrentType
For Each strCurrentType in strTypes
strCurrentType = Replace(strSearchKey, "%1", strCurrentType)
Sh.RegWrite strCurrentType, strSearchVal
Next
Sh.RegWrite strFilterPath, "1", "REG_DWORD"
(Ich könnte langsam auch eine VBS-Sparte auf meiner Seite einrichten. )
Ausprobiert habe ich´s auch, indem ich in ~300
HTML-Seiten nach
Im Gegensatz zu vorher findet die Suche nun auch tatsächlich etwas.