'Add files to Search for files containing text
'© Doug Knox - 11/04/2001

Option Explicit
On Error Resume Next

Dim WshShell, N, P, P1, P2, ItemType, MyBox, FileType, Title, Prompt, RegKey, X

Set WSHShell = WScript.CreateObject("WScript.Shell")
P = "HKEY_CLASSES_ROOT\."
P1 = "\PersistentHandler\"
N = "{5e941d80-bf96-11cd-b579-08002b30bfeb}"

Prompt = "Adja meg a fájltípus kiterjesztését, amit hozzá kíván adni a fájltartalom-kereséshez:" & vbCR
Prompt = Prompt & "Példák: txt, adm, inf"
Title = "Fájltípus hozzáadása"

FileType = InputBox(Prompt, Title, "")
If FileType = "" Then
	MyBox = MsgBox("Üresen hagyta a fájltípus mezőt.",4096,"Error.")
	Set WshShell = Nothing
	WScript.Quit
Else 
'Check to see if there is already a PersistentHandler default value
	RegKey = P & FileType & P1
	X = WshShell.RegRead(RegKey)
End If

'MyBox = MsgBox("A" & FileType & " fájltípushoz tartozó érték: " & X,4096,"Eredmény")
'Set WshShell = Nothing
If X = N Then
	MyBox = MsgBox("A fájltípushoz tartozó érték már létezik." & vbCR & "Nem történt változtatás.", 4096, "Nincs változás")
	Set WshShell = Nothing
	WScript.Quit
End If

If X <> N AND X <> "" Then
	MyBox = MsgBox("A fájltípushoz tartozó érték már létezik." & vbCR & "Nem történt változtatás.", 4096, "Nincs változás")
	Set WshShell = Nothing
	WScript.Quit
End If

If Err.Number <> 0 Then
	WshShell.RegWrite RegKey, N
	MyBox = MsgBox("A rendszerleíró-adatbázis módosítva." & vbCR & "A változások érvénybe lépéséhez újra kell indítani a számítógépet.", 4096, "Kész")
	Set WshShell = Nothing
End If