>Dear Sir,
>
>How to put all files name into a cursor.
>For example, the is a directory as D:\COTTON
>I want to store all folders and files in a cursor.
>
>Please help

********************************************************************
*  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