pro RawDataCount

; This program creates a list of the files in each directory in 'Log'
; It is to be run from the "Log" directory (i.e. E:\DisrData\ForArchive\DISR_RAW_DATA\14Jan05\Log)

cd,'',current=cdir & cd,cdir
;;cd,'D:\disr3_cal'

;setup output file...
close,1
openw,1,'d:\DirList.out'
printf,1,cdir,string(10b)

;Write Directories List to output file...

dirs=file_search('*',count=ndirs,/test_directory)	;directories in 'Log'
files=file_search('*',count=nfiles)					;total files + dir's in 'Log'
;for i=0,ndirs-1 do print,dirs(i),string(10b),'DB',string(10b),'DB2'
printf,1,'Log  (', sstr(ndirs),' - ',sstr(nfiles-ndirs),')'


for nd=0,ndirs-1 do begin
 cd,dirs(nd)
 dirs2=file_search('*',count=ndirs2,/test_directory)	;level 2 directory (i.e. DB)
 files=file_search('*',count=nfiles)					;total files + dir's in 'Log'
 printf,1,string(10b),'   -> ',dirs(nd),'   (',sstr(ndirs2),' - ',sstr(nfiles-ndirs2),')'
 if ndirs2 eq 0 then goto,nextDir

 for nd2=0,ndirs2-1 do begin
  cd,dirs2(nd2)
  dirs3=file_search('*',count=ndirs3,/test_directory)	;level 3 directory (i.e. Image, or post)
  files=file_search('*',count=nfiles)					;total files + dir's in 'Log'
  printf,1,'   --| ',dirs2(nd2),'   (',sstr(ndirs3),' - ',sstr(nfiles-ndirs3),')'
  if ndirs3 eq 0 then goto,nextDir2

  for nd3=0,ndirs3-1 do begin
   cd,dirs3(nd3)
   dirs4=file_search('*',count=ndirs4,/test_directory)	;level 4 directory (i.e. anal_results)
   files=file_search('*',count=nfiles)					;total files + dir's in 'Log'
   printf,1,'   ---| ',dirs3(nd3),'   (',sstr(ndirs4),' - ',sstr(nfiles-ndirs4),')'
   if ndirs4 eq 0 then goto,nextDir3

   for nd4=0,ndirs4-1 do begin
    cd,dirs4(nd4)
    dirs5=file_search('*',count=ndirs5,/test_directory)	;level 5 directory (i.e. ptest)
    files=file_search('*',count=nfiles)					;total files + dir's in 'Log'
    printf,1,'   ----| ',dirs4(nd4),'   (',sstr(ndirs5),' - ',sstr(nfiles-ndirs5),')'
    if ndirs5 eq 0 then goto,nextDir4

    nextDir4:
    up
   endfor

   nextDir3:
   up
  endfor

  nextDir2:
  up
 endfor

 nextDir:
 up
endfor

close,/all
print,'Done'
end