>Cool!
>
>>>I'd like to search through all applications (which are located under APPL directory in its own directories with subdirectories) and search for SetFocus() in Form's.Init.
>>
>>Use Adir to get every SCX file, do a MODI FILE NOWAIT on all files found, then do an aSelObj(aA, 1) and this will tell youf is SetFOcus() is in the Init method:
>>
>>?'SetFocus()' $ aA[1].ReadMethod('init')

Another approach, similar but manipulating this a bit differently, uses this logic. I've denoted sections of pseudocode in red to let you know where you've gotta come up with your own code:

oReg = CREATEOBJ('VBScript.RegExp')
oReg.Global = .t.
oReg.IgnoreCase = .t.
oReg.Pattern = 'PROCEDURE INIT([^\0]*)ENDPROC'
#DEFINE CRLF CHR(13)+CHR(10)
cInitsWithSetFocus = ''
FOR Each cFormSubDirPath IN all app's directory tree
   cStartDir = FULLPATH(CURDIR())
   CD (cFormSubDirPath)
   DIMENSION aSCXFiles[1,5]
   nForms = ADIR(aSCXFiles,'*.SCX')
   FOR i = 1 TO nForms
      USE (aSCXFiles[i,1]) AS ThisSCX
      SCAN FOR 'form' $ lower(BaseClass) AND ! EMPTY(Methods)
         oReg.Execute(ThisSCX.Methods)
         FOR EACH oMatch IN oReg.Matches
            IF 'SETFOCUS' $ UPPER(oMatch.Value)
               cInitsWithSetFocus = cInitsWithSetFocus + cFormSubDirPath + ' ' + ;
                                    aSCXFiles[i,1] + ': ' +ThisSCX.ObjName + CRLF + ;
                                    oMatch.Value + CRLF + CRLF
            ENDIF
         ENDFOR && each match
      ENDSCAN  && each form rec in SCX
   ENDFOR && each SCX
   USE IN ThisSCX
ENDFOR && each app dir
   CD (cStartDir)
IF LEN(cInitsWithSetFocus) > 0
   =STRTOFILE(cInitsWithSetFocus,'InitsWithSetFocus.TXT')
ENDIF