home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / picbase / deletepic.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-10  |  680b  |  36 lines
  1. /* DeletePic.rexx, 20.09.94 Jörg Richter */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. NL = D2C(10)
  6.  
  7. ADDRESS DataBase
  8.  
  9. Total
  10. IF result = 0 THEN
  11.   EXIT
  12.  
  13. Request "_Löschen|_Abbruch" "ACHTUNG! Gelöscht werden:" || NL || NL || "· das Orginalbild" || NL || "· das Vorschaubild" || NL || "· der Datensatz" || NL || NL || "Sind Sie sicher ?"
  14. IF RC = 0 THEN
  15.   EXIT
  16.  
  17. GetData $F1
  18. bild = result
  19. GetData $F4
  20. thumb = result
  21.  
  22. ADDRESS COMMAND
  23. 'C:Delete > NIL: ' || bild
  24. fehler1 = RC
  25. 'C:Delete > NIL: ' || thumb
  26. fehler2 = RC
  27.  
  28. ADDRESS DataBase
  29.  
  30. IF fehler1 ~= 0 THEN
  31.   Request "_Ok" "Das Orginalbild konnte nicht gelöscht werden"
  32. IF fehler2 ~= 0 THEN
  33.   Request "_Ok" "Das Vorschaubild konnte nicht gelöscht werden"
  34. Delete
  35.  
  36.