function count_files, descripter

; Count the number of files in a directory
if n_params(0) eq 0 then descripter=''
files=t_getfil(descripter)
numfiles=0
s=size(files)
if s(0) ne 0 then numfiles=s(1)
return,numfiles
end