>DECLARE INTEGER MoveFile IN Win32API ; > STRING @lpExistingFileName, ; > STRING @lpNewFileName > >oldName = "FILE$$$" >newName = "FILEnew$$$" >STRTOFILE("x",m.oldName) >? FILE(m.oldName),FILE(m.newName) > >IF MoveFile(@m.oldName,@m.newName) > 0 > ? "ok" >ELSE > ? "error" >ENDIF >? FILE(m.oldName),FILE(m.newName) >>