CREATE CURSOR asdgt (code CHR(6),modified datetime) 
oWSH = CREATEOBJECT('Scripting.FileSystemObject')
oFolder = oWSH.GetFolder('f:\project\school\stipcs')

FOR EACH oFile IN oFolder.Files
	
	?oFile.Name, oFile.DateLastModified

SELECT asdgt
APPEND BLANK
replace code WITH oFile.Name
replace modified WITH oFile.DateLastModified

NEXT
brows