home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / utillities / diskmaster / rexx / fastdmview.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-04-19  |  775 b   |  47 lines
  1. /* ARexx - Script für DiskMaster und Fastview */
  2.  
  3. /*
  4. ** $VER: FastDMView.rexx 2.2 (97-04-19) Rudolph Riedel
  5. **                                      RRiedel@Amiga.ON-Luebeck.de
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. parse arg Port
  11.  
  12. Fastview="Tools:Fastview"
  13.  
  14. select="           S"
  15. namelist=" "
  16. count=0
  17. viewlist.count=" "
  18.  
  19. Address VALUE Port
  20.  
  21. Status P
  22. path=Result
  23. DirList List
  24.  
  25.  do i=1 to List.0
  26.   parse var List.i name cmt+80 sel
  27.    if sel=select then
  28.     namelist=namelist name
  29.      if length(namelist) > 500 then
  30.       do
  31.        viewlist.count=namelist
  32.        namelist=" "
  33.        count=count+1
  34.        viewlist.count=" "
  35.       end
  36.  end
  37.  
  38. viewlist.count=namelist
  39.  
  40. Pragma pragma('d', path)
  41.  
  42. do i=0 to count
  43.  viewlist.i=delstr(viewlist.i,1,2)
  44.  Address Command Fastview viewlist.i
  45. end
  46. Deselect "*"
  47.