home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma45.dms / ma45.adf / Listingi / MagazynAMIGA4 / Listowanie.ced < prev    next >
Text File  |  2002-10-23  |  494b  |  29 lines
  1. /*
  2.    Listowanie.ced
  3. */
  4.  
  5. ADDRESS 'rexx_ced'
  6. OPTIONS RESULTS
  7.  
  8. /* wybranie katalogu */
  9. GETDIRNAME '' 'Wybierz katalog do wylistowania:'
  10. IF RESULT=="RESULT" THEN
  11.    EXIT 0
  12.  
  13. Katalog=RESULT
  14.  
  15. /* wylistowanie katalogu do pliku */
  16. ADDRESS COMMAND "C:Dir >T:Temp-dir.ced " || Katalog
  17.  
  18. ADDRESS 'rexx_ced'
  19. /* nowa linia */
  20. TEXT '0A'x
  21.  
  22. /* doˆ¥czenie katalogu (pliku z listingiem) */
  23. INCLUDE FILE "T:Temp-dir.ced"
  24.  
  25. /* skasowanie pliku tymczasowego */
  26. ADDRESS COMMAND "C:Delete >NIL: T:Temp-dir.ced"
  27.  
  28. EXIT 0
  29.