home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 1 / amigaformatcd01.iso / demos / twist2 / aminet / clearftplist.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-04-30  |  342 b   |  25 lines
  1. /**
  2.  * $Id$
  3.  *
  4.  *
  5.  * Clear get list 
  6.  * Copyright © 1995 HiSoft Systems. All Rights Reserved.
  7. **/
  8.  
  9. ADDLIB('rexxsupport.library',0,-30,0)
  10. FILE = 'ENV:SortedAminetFTPGetList'
  11. CALL DELFILE
  12. FILE = 'ENVARC:SortedAminetFTPGetList'
  13. CALL DELFILE
  14. FILE = 'ENVARC:AminetFTPGetList'
  15. CALL DELFILE
  16.  
  17. EXIT
  18.  
  19. DELFILE:
  20. IF EXISTS(FILE) THEN
  21. DO
  22. DELETE(FILE)
  23. END
  24.  
  25.