>Is there a way to conduct a search of all prgs in a project for a certain string? I have a procedure that locks a users record when users log in, and the lock was being removed by a program that I have that did an unlock all. I knew what was happening, but wasn't sure which program had this line, so I had to open up all suspect programs one at a time and do an edit find for "unlock". This search would have been quicker had I been able to search all prgs at the same time for this string and identified the program that I needed to modify. Also, can a search be done on forms this way as well.
>
>Thanks!
>
>john.
There are some filer utilities for it.

1. From Microsoft - filer.exe


2. From Dragan - filer2.zip in files section under Classes-VCX


3. From ken Levy - finderx.zip searches for text files ie:not frx,vcx,scx

And here is my own for searching in form methods. It's simple and returns the forms searched in a browse. Parameters are cSearchString, cSearchDir, [lNotContainingTheString] :

---

parameters searchstring, cDir, lNot
if parameters() < 3
	lNot = .f.
endif
if parameters() < 2
	cDir = "form"
endif
cOperator = iif(lNot, " not " , " ")
		
clear
close tables all
set safe off
drop table flist
create table flist (scxname c(30))
use
set safe on
select 0
=adir(formfiles,cDir+"\*.scx")
for fcnt = 1 to alen(formfiles,1)
	use (formfiles[fcnt,1]) alias current
	scan
		m.foundit = .f.
		if atc(searchstring, methods) > 0
			m.foundit = .t.
		endif	
		if m.foundit
			exit
		endif	
	endscan
	if &cOperator m.foundit
		insert into flist values (formfiles[fcnt,1])
	endif
	use
endfor		
clear all
use flist
brow

---