How about this

LOCAL laproclist[1],lavcxlist[1], lnRes, lnx
aaa= _vfp.ActiveProject
	
FOR lnx = 1 TO aaa.Files.Count 
	dd=aaa.Files.Item[lnx]
	DO CASE
	CASE dd.type = "V"
		lnRes = AVCXCLASSES(lavcxlist,JUSTFNAME(dd.name))
		*// Process here 
	CASE dd.type = "P"		
		lnRes = APROCINFO(laproclist,JUSTFNAME(dd.name))
		*// Process here 
	OTHERWISE

	ENDCASE
NEXT 

>>>We had, well, let's just say, a questionable procedure name popup on a client's PC as part of an error message. We now need a way to find all the procedure/function names in our system and review them. Any reasonably easy way to do that?
>>
>>Take a look at APROCINFO function to see if it helps you
>
>That was cool, but I need to traverse the entire project and files.