Sorry I didn't get back to you two. I went out of town. Thanks for the help.

Michelle



>Hi Michell,
>
>This program can help you get started. Modify it for your needs.
>

>********************************************************************************
>*  Description.......: GetAllFiles1 - builds list of all files in directory tree
>*                    : uses Adir recursive call
>*  Calling Samples...:
>*  Parameter List....: tcStartDir, tcFileExt
>*  Created by........: David Frankenbach
>*  Modified by.......: 
>********************************************************************************
>* ADIR() method of recursively building the file list - Dave Frankenbach
>lparameters tcStartDir, tcFileExt
>* tcStartDir - top directory to start from
>* tcFileExt - only files with this extension would be added to the list,
>*             leave blank for all file extensions
>
>* Both parameters should be character type, check it first
>**************************************************************************
>if empty(tcStartDir) or vartype(tcStartDir)'C'
>     tcStartDir='c:\' && Get list of files in the whole local drive
>else
>     tcStartDir=addbs(tcStartDir)
>endif
>if empty(tcFileExt) or vartype(tcFileExt)'C'
>     tcFileExt=''
>endif
>
>local ltStart
>ltStart = datetime()
>local lnTotNumberOfFiles
>
>create cursor curFilesADIR (cFilename c(100), nSize n(10), dMod d, Flag L)
>=RecurseFolder(tcStartDir, tcFileExt) && Call recursive procedure
>lnTotNumberOfFiles=reccount(curFilesAdir)
>? datetime() - ltStart, lnTotNumberOfFiles
>
>index on upper(justfname(cFileName)) tag cFileName
>browse nowait
>
>function RecurseFolder
>lparameters lcDir, lcFileExt
>local i , n, laFiles[1]
>
>n = adir(laFiles, lcDir + '*.*', "shd" )
>
>for i = 1 to n
>     if ( left( laFiles[i,1], 1 ) != '.' )
>          if ( "D" $ laFiles[i,5] )
>               RecurseFolder( lcDir + laFiles[i,1] + "\" )
>          else
>               if empty(lcFileExt) or justext(laFiles[i,1])==lcFileExt
>                    llFlag=.f.
>                         insert into filesADIR ;
>                         values( lcDir + laFiles[i,1], laFiles[i,2], laFiles[i,3],llFlag )
>               endif
>          endif
>     endif
>endfor
>return

>
>>I don't need to click or drag anything. I don't want a UI at all. All I want is a routine that I can feed a string to and have it return a list of files (in a cursor or array) that contain that string.
>>
>>I can't really assume ActiveDesktop. For now, it's for internal use, but we may sell the utility if it works out. I need to plan ahead.
>>
>>Looks like I'm just going to have to write it myself to get what I want. :)
>>
>>Thanks,
>>
>>Michelle
>>
>>>If the machine has the ActiveDesktop installed, you can use the Shell.Application object's FindFiles method. While it doesn't allow editing by double clicking the result, dragging a file into the Command window causes VFP to open it in the desired builder.