home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / PET-CDW2.DMS / in.adf / rexx / List-Dir.ced < prev    next >
Encoding:
Text File  |  1993-07-07  |  927 b   |  57 lines
  1. /*
  2. ** List-Dir.ced
  3. **
  4. ** $VER: List-Dir.ced 1.0.2 (2.6.93)
  5. **
  6. ** This script lists the contents of a given directory.
  7. **
  8. ** This script requires CygnusEd Professional v3.5 (or later) to run.
  9. **
  10. ** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
  11. */
  12.  
  13.  
  14. OPTIONS RESULTS
  15.  
  16. NL = '0A'X
  17. TempFile = "T:TempCEDFile.1"
  18. SortFile = "T:TempCEDFile.2"
  19.  
  20. STATUS CURRENTDIR
  21. GETDIRNAME RESULT '"List What Directory?"'
  22. Directory = RESULT
  23. IF (Directory = "") | (Directory = "RESULT") THEN
  24.     EXIT 0
  25.  
  26. String = "List >" TempFile Directory
  27. ADDRESS COMMAND String
  28.  
  29. JUMP TO FILE TempFile
  30. IF (RESULT = 1) THEN
  31.     QUIT 1
  32.  
  33. OPEN NEW
  34. OPEN TempFile
  35. DELETE LINE
  36. "END OF FILE"
  37. UP
  38. DELETE LINE
  39. SAVE
  40.  
  41. ADDRESS COMMAND "Sort" TempFile SortFile
  42. ADDRESS COMMAND "Delete" ">nil:" TempFile
  43.  
  44. JUMP TO FILE SortFile
  45. IF (RESULT = 1) THEN
  46.     QUIT 1
  47.  
  48. OPEN SortFile
  49.  
  50. STATUS EDITABLE
  51. IF (RESULT = 1) THEN
  52.     EDITABLE FILE
  53.  
  54. ADDRESS COMMAND "Delete" ">nil:" SortFile
  55.  
  56. EXIT 0
  57.