I found some problems with the version from that message for ADIR as well.

Also, we should be able to provide a way to interrupt the search - say, I'm running the long search now and I have no way to interrupt it.

>I found the program below in your link
>
>But I does not execute form my form button
>
>I supposed I could execute it using pcStartDir and pcFileExt as textobox of my form
>
>Any idea ?
>
>Moises
>
>
>
>
>
>********************************************************************
>* Description.......: GetAllFiles - builds a list of all files in start directory and subdirectories
>* Calling Samples...: ?GetAllFiles('\Redp\Appl','SCX')
>* Parameter List....: pcStartDir, pcFileExt
>* Created by........: Ed Rauh
>* Modified by.......: Nadya Nosonovsky 10/18/2000 11:18:39 AM
>********************************************************************
>* Scripting.FileSystemObject example of recursive file list build - Ed Rauh
>lparameters pcStartDir, pcFileExt
>* pcStartDir - top directory to start from
>* pcFileExt - only files with this extension would be added to the list,
>* leave blank for all file extensions
>
>if empty(pcStartDir)
> pcStartDir='c:\' && Get list of files in the whole local drive
>endif
>
>local ltStartFSO
>ltStartFSO = datetime()
>private pnTotNumberOfFiles
>pnTotNumberOfFiles=0
>create cursor filesFSO ( cFilename c(100), nSize n(10), dMod d )
>oFSO = createobject('Scripting.FileSystemObject')
>
>=RecurseFolderFSO(oFSO.GetFolder(pcStartDir))
>? datetime() - ltStartFSO, pnTotNumberOfFiles
>
>index on nSize tag nSize
>browse
>****************************************************
>function RecurseFolderFSO
>lparameter toFolderObject
>with toFolderObject
> for each oFile in .files
> with oFile
> if empty(pcFileExt) or justext(.path)==pcFileExt
> insert into filesFSO ;
> values (.path, .size, .DateLastModified )
> pnTotNumberOfFiles=pnTotNumberOfFiles+1
> endif
> endwith
> endfor
> for each oSubFolder in .SubFolders
> RecurseFolderFSO(oSubFolder)
> endfor
>endwith
>toFolderObject = null
>return