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