home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
SREFV12J
/
DIRINFO.RX0
< prev
next >
Wrap
Text File
|
1997-02-09
|
730b
|
23 lines
/* this is a sample of a INTERPRET keyphrase "rexx code block" */
tmp.1=filespec('drive',usedfile);
tmp.2=filespec('path',usedfile);
tmp.8=0;
tmp.3=tmp.1||tmp.2||"*.*" ;
tmp.3=translate(tmp.3,'\','/');
tmp.4=sysfiletree(tmp.3,'tmp2','F');
do tmp4=1 to tmp2.0;
parse var tmp2.tmp4 putme putme tmp.10 . ;
tmp.8 = tmp.8 +tmp.10 ;
end ;
tmp.5=sysfiletree(tmp.3,'tmp3','D') ;
/* fix tvfs bug */
tmpn=0;
do iu=1 to tmp3.0;
if dosisdir(strip(word(tmp3.iu,words(tmp3.iu))))=1 then tmpn=tmpn+1 ;
end;
putme='<p> Current directory: '||tmp.2 ;
putme=putme|| ' <br> # files '|| tmp2.0 ;
putme=putme||' <br> bytes in files= '|| tmp.8 ;
interpret.results=putme||' <br> # subdirectories = ' ||tmpn|| '<p> ' ;