>Sergey now i want to replaced in a cursor it is true way.???
>
>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
Looks good.
Alternatively, you can Replace both fields in a single line and use the IN alias clause.
Or use Insert-SQL:
FOR EACH oFile IN oFolder.Files
Insert Into asdgt Values (oFile.Name, oFile.DateLastModified)
NEXT
hth
-Stefan