;
pro tstfindfile
;
files = findfile("/d/foster/tgcmidl",count=nfiles)
print,"files=",files
print,"nfiles=",nfiles
return
end