home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / sonstiges / picview20 / rexx / testexists.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1986-06-11  |  550 b   |  35 lines
  1. /* TestExists.Rexx
  2.  
  3.    Test if every thumbnail has its picture file... and deletes thumbnails
  4.    with no picture file... (e.g. if you deleted pictures outside of
  5.    PicView...)
  6.  
  7.    (W) by Martin Steigerwald, 19.3.96
  8.  
  9.    V1.0 30.3.96
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. ADDRESS PicView.1
  15.  
  16. GETENTRIES
  17.  
  18. bildanzahl=result
  19.  
  20. bildnr=0
  21.  
  22. DO WHILE bildnr<=bildanzahl-1
  23.   GETPICDATA bildnr FILE
  24.   datei=result
  25.  
  26.   IF ~EXISTS(datei) THEN DO
  27.     say bildnr || ' ' || datei
  28.     REMOVEPIC bildnr FORCE
  29.     bildanzahl=bildanzahl - 1
  30.   END ; ELSE DO
  31.     bildnr=bildnr + 1
  32.   END
  33. END
  34.  
  35.