>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