Try something like this: FindFile( 'notepad.exe', 'c:\' )

function FindFile
lparameters cFile, cPath

local i, nFiles, aFiles[1], cRetVal
nFiles = adir( aFiles, cPath + "*.*", "D" )
cRetVal = ''

for i=1 to nFiles
	
	if "D" $ aFiles[i,5]
		if aFiles[i,1] != "." and aFiles[i,1] != ".."
			cRetVal = FindFile( cFile, cPath + aFiles[i,1] + "\" ) && recursive call
			if not empty( cRetVal )
				exit
			endif					
		endif
	else
		if aFiles[i,1] = cFile
			cRetVal = cPath 
			exit
		endif
	endif	
		
next
	
return cRetVal

>Not really.
>
>I want a program to get me all sub-directories in a specified folder, and all subfolders in each subfolder and so on.
>
>Kev