Re: [foxboro] .S file search
- From: "Weiss, Andreas" <Andreas.Weiss@xxxxxxxxxxxx>
- To: <foxboro@xxxxxxxxxxxxx>
- Date: Mon, 25 Jun 2007 07:26:27 -0500
>In the NT system I
> could do an advanced search on all of the .S files to find=20
> what program
> was tied to a particular output block. This does not work in the XP
> system. =20
Hi Kevin,
MS has changed the behaviour of the search tool which searches only =
through "known" file types.
Save the following lines into a file called ConfigureSearchTool.vbs and =
do a double click on it. That should bring you the old functionality =
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
'
' =
<http://www.wintotal.de/Tipps/Eintrag.php?RBID=3D2&TID=3D836&URBID=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 =3D "Der Eintrag wurde nicht gefunden!"
fra1 =3D "Search through all file types?"& vbCr _
& "(einschlie=DFlich nicht registrierten Erweiterungen)"
fra2 =3D "Search only in registerd file types? " & vbCr _
& "(registrierte Erweiterungen, Standarteinstellung)"
fra3 =3D "FilterFilesWithUnknownExtensions"
mp =3D "HKLM\SYSTEM\CurrentControlSet\Control\ContentIndex\"
mp1 =3D "FilterFilesWithUnknownExtensions"
mw =3D "1"
mw1 =3D "0"
mt =3D "REG_DWORD"
On Error Resume Next
Set WshShell =3D WScript.CreateObject("Wscript.Shell")
vorh =3D WshShell.RegRead(mp & mp1)
If Not Err.number=3D0 Then
MsgBox fra ,48 , ":-(("
WScript.Quit
On Error Goto 0
ElseIf vorh =3D 1 Then
mb =3D MsgBox(fra2 ,292 , fra3)
Else
mb1 =3D MsgBox (fra1 ,292 , fra3)
End If
If mb =3D 6 Then
WshShell.RegWrite mp & mp1, mw1, mt
MsgBox "It`s done" ,64 , ":-)" 'deaktivieren
WScript.Quit
End If
If mb1 =3D 6 Then
WshShell.RegWrite mp & mp1, mw, mt
MsgBox "success" ,64 , ":-)" 'aktivieren
Else
MsgBox "nothing happend" ,64 , ":-(("
End If
=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
Other related posts:
