home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / srev13g.zip / DIRINFO.RX0 < prev    next >
Text File  |  1997-02-09  |  730b  |  23 lines
  1. /* this is a sample of a INTERPRET keyphrase "rexx code block" */
  2. tmp.1=filespec('drive',usedfile);
  3. tmp.2=filespec('path',usedfile);
  4. tmp.8=0;
  5. tmp.3=tmp.1||tmp.2||"*.*" ;
  6. tmp.3=translate(tmp.3,'\','/');
  7. tmp.4=sysfiletree(tmp.3,'tmp2','F');
  8. do tmp4=1 to tmp2.0;
  9.    parse var tmp2.tmp4 putme putme tmp.10 . ;
  10.    tmp.8 = tmp.8 +tmp.10 ;
  11. end ;
  12. tmp.5=sysfiletree(tmp.3,'tmp3','D') ;
  13. /* fix tvfs bug */
  14. tmpn=0;
  15. do iu=1 to tmp3.0;
  16.   if dosisdir(strip(word(tmp3.iu,words(tmp3.iu))))=1 then tmpn=tmpn+1 ;
  17. end;
  18. putme='<p> Current directory: '||tmp.2 ;
  19. putme=putme|| ' <br>   # files '|| tmp2.0 ;
  20. putme=putme||' <br>  bytes in files= '|| tmp.8 ;
  21. interpret.results=putme||' <br>  # subdirectories = ' ||tmpn|| '<p> ' ;
  22.  
  23.