>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 >browsLooks good.
FOR EACH oFile IN oFolder.Files Insert Into asdgt Values (oFile.Name, oFile.DateLastModified) NEXThth