Hello !

I need to move some files on creation to another subdirectory and am having
trouble with REXX.  SysMoveObject returns an error code of 0 every time.  I've
tried everything I can think of...code follows:

--- Start here ---

/* code snipped */

  call syssleep 15

  if stream('G:\satelite\newsgrp\PCUSENET.*','c','query exist')  '' then
    do
      LastProcOfUseNet = currtime

      call SysFileTree 'G:\satelite\newsgrp\PCUSENET.*' , 'UseNetFiles' , 'FO'

      do i = 1 to UseNetFiles.0

        filename.i = substr(UseNetFiles.i,21,12)

        newloc.i = 'G:\satelite\newsgrp\outbound\' || filename.i 

        status = SysMoveObject(UseNetFiles.i, newloc.i)
        if status = 0 then
          do
            call beep 500, 100
          end
      end
    end

--- End code ---

Any help would be appreciated...even an example of code that works :)

Nicky

--- Squish/386 v1.11