My apologies to all. I meant to send to a coworker but replied instead. My statement of "weird" referred to what Microsoft has done - not the comment or solution. Did you see this when it came through? Weird!=20 -----Original Message----- From: foxboro-bounce@xxxxxxxxxxxxx [mailto:foxboro-bounce@xxxxxxxxxxxxx] On Behalf Of Weiss, Andreas Sent: Monday, June 25, 2007 6:26 AM To: foxboro@xxxxxxxxxxxxx Subject: Re: [foxboro] .S file search >In the NT system I > could do an advanced search on all of the .S files to find=3D20 what=20 >program was tied to a particular output block. This does not work in=20 >the XP system. =3D20 Hi Kevin, MS has changed the behaviour of the search tool which searches only =3D through "known" file types. Save the following lines into a file called ConfigureSearchTool.vbs and =3D do a double click on it. That should bring you the old functionality = =3D back. Regards, Andreas --- ' *************************************************** ' ' VBScript generated by SystemScripter 5.0 ' www.scriptinternals.de <http://www.scriptinternals.de> ' ' Author: Lutze ' Date: Samstag, 14.02.2004 ' Version:0000000000000000000000,9 ' ' =3D <http://www.wintotal.de/Tipps/Eintrag.php?RBID=3D3D2&TID=3D3D836&URBID=3D= 3D12> ' <http://www.wintotal.de> ' ' *************************************************** ' Option Explicit Dim fra ' Dim fra1 ' Dim fra2 Dim fra3 ' Dim vorh ' Dim mb ' Dim mb1 ' Dim mp ' Dim mp1 ' Dim mt ' Dim mw ' Dim mw1 ' Dim WshShell ' fra =3D3D "Der Eintrag wurde nicht gefunden!" fra1 =3D3D "Search through all file types?"& vbCr _ & = "(einschlie=3DDFlich nicht registrierten Erweiterungen)" fra2 =3D3D "Search only in registerd file types? " & vbCr _ & "(registrierte Erweiterungen, Standarteinstellung)" fra3 =3D3D "FilterFilesWithUnknownExtensions" mp =3D3D "HKLM\SYSTEM\CurrentControlSet\Control\ContentIndex\" mp1 =3D3D "FilterFilesWithUnknownExtensions" mw =3D3D "1" mw1 =3D3D "0" mt =3D3D "REG_DWORD" On Error Resume Next Set WshShell =3D3D WScript.CreateObject("Wscript.Shell") vorh =3D3D WshShell.RegRead(mp & mp1) If Not Err.number=3D3D0 Then MsgBox fra ,48 , ":-((" WScript.Quit On Error Goto 0 ElseIf vorh =3D3D 1 Then mb =3D3D MsgBox(fra2 ,292 , fra3) Else mb1 =3D3D MsgBox (fra1 ,292 , fra3) End If If mb =3D3D 6 Then WshShell.RegWrite mp & mp1, mw1, mt MsgBox "It`s done" ,64 , ":-)" 'deaktivieren WScript.Quit End If If mb1 =3D3D 6 Then WshShell.RegWrite mp & mp1, mw, mt MsgBox "success" ,64 , ":-)" 'aktivieren Else MsgBox "nothing happend" ,64 , ":-((" End If =3D20 =20 =20 _______________________________________________________________________ This mailing list is neither sponsored nor endorsed by Invensys Process Systems (formerly The Foxboro Company). Use the info you obtain here at your own risks. Read http://www.thecassandraproject.org/disclaimer.html =20 foxboro mailing list: //www.freelists.org/list/foxboro to subscribe: = mailto:foxboro-request@xxxxxxxxxxxxx?subject=3Djoin to unsubscribe: = mailto:foxboro-request@xxxxxxxxxxxxx?subject=3Dleave =20 _______________________________________________________________________ This mailing list is neither sponsored nor endorsed by Invensys Process Systems (formerly The Foxboro Company). Use the info you obtain here at your own risks. Read http://www.thecassandraproject.org/disclaimer.html foxboro mailing list: //www.freelists.org/list/foxboro to subscribe: mailto:foxboro-request@xxxxxxxxxxxxx?subject=join to unsubscribe: mailto:foxboro-request@xxxxxxxxxxxxx?subject=leave