home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / apmt34.zip / MOVEFLDR.CMD < prev    next >
OS/2 REXX Batch file  |  1994-07-01  |  2KB  |  51 lines
  1. /******************************************************************/
  2. /* This program Moves all items from OldFolder to NewFolder       */
  3. /* Both folders are expected to be visible on the Desktop         */
  4. /******************************************************************/
  5. Trace off
  6. Call RxFuncAdd 'APMTLoadFuncs','APMTEXT','APMTLoadFuncs'
  7. Call APMTLoadFuncs
  8. NewFolder = "NEW Folder"   /* Edit this */
  9. OldFolder = "OLD Folder"   /* And  this */
  10.  
  11. rc = INIT_SESSION()                          ; call logit
  12. if rc \= 0 then signal errorexit
  13. signal on halt name close
  14. rc = SELECT_WINDOW("Desktop")                ; call logit
  15. rc = CONTAINER_SET_POINTER(1,OldFolder)      ; call logit
  16. rc = MOUSE("DCLICK",1)
  17. rc = SELECT_WINDOW(OldFolder||"*",50)        ; call logit
  18.  
  19. rc = CONTAINER_QUERY_COUNT(1,ct)             ; call logit
  20. do ct
  21.    item = "#"||1
  22.    rc = CONTAINER_SET_POINTER(1,item)        ; call logit
  23.    rc = MOUSE("DOWN",2)                      ; call logit
  24.    rc = SELECT_WINDOW("Desktop")             ; call logit
  25.    rc = CONTAINER_SET_POINTER(1,NewFolder)   ; call logit
  26.    rc = MOUSE("UP",2)
  27.    rc = SELECT_WINDOW(OldFolder||"*")        ; call logit
  28.    rc = SET_FOCUS()                          ; call logit
  29.    end
  30.  
  31. rc = SELECT_WINDOW(OldFolder||"*")           ; call logit
  32. rc = SYSMENU_SELECT("Close")                 ; call logit
  33.  
  34. close:
  35. rc = END_SESSION();
  36.  
  37. exit
  38.  
  39.  
  40. /******************************************************************/
  41. logit:
  42. code=Strip(rc)
  43. Parse Value Sourceline(sigl) With 'rc = ' function ';'
  44. out = 'Return code' code 'from' function 'in line number' sigl
  45. if code > 0 then do
  46.   say out
  47.   Say '---> 'apmtmsg
  48.   exit
  49.   end
  50. return
  51.