dirs=yfile_list('*')
ss=where(rstrmid(dirs,0,1) eq ':')
dirs=rstrmid(dirs(ss),1,100)
ori_dir=curdir()
for j=0, nlm(dirs)-1 do begin
cd,dirs(j)
outfil='index.html'
file_append, outfil, '',/new
pptf=yfile_list('*.ppt')
file_append, outfil, 'Click here to download PPT
file_append, outfil, ''
imgs=yfile_list('*.gif')
for i=0, nlm(imgs)-1 do begin
file_append,outfil, '+')
'
endfor
file_append, ''
cd, ori_dir
endfor
end