home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / hf-pv204.lha / PicView20 / rexx / PictureCopy.rexx next >
Encoding:
OS/2 REXX Batch file  |  1996-06-24  |  689 b   |  31 lines
  1. /******************************************************/
  2. /* PictureCopy.rexx $VER: 1.0 (24.06.96)  for PicView */
  3. /* (C) 1996 Holger Papajewski      papa@ami.boerde.de */
  4. /******************************************************/
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS "PICVIEW.1"
  8.  
  9. CALL ADDLIB('rexxreqtools.library',0,-30,0)
  10.  
  11. dir = rtfilerequest(,,'Select Destination For Pictures',,'rtfi_flags = freqf_nofiles' 'rtfi_initialpath = ""')
  12.  
  13. GETNEXTSELECT START
  14. num = result
  15. DO WHILE num ~= -1
  16.  
  17.   GETPICDATA num FILE
  18.   source = '"' || result || '"'
  19.   GETPICDATA num NAME
  20.   dest = '"' || dir || result || '"'
  21.  
  22.   ADDRESS COMMAND
  23.   'copy' source dest
  24.  
  25.   ADDRESS "PICVIEW.1"
  26.   GETNEXTSELECT
  27.   num = result
  28. END
  29.  
  30.  
  31.