function r = fftdir(d)

dd = dir(strcat(d,'/','*.wav'));

th = [];
for file = char(dd.name)'
 f = strcat(d,'/',file')
 th = [th dfftwav(f)];
end

r = th;