function dirnames = listDirNames(wd)
dirlist = listDirs(wd);
ndirs = numel(dirlist);
dirnames = cell(1,ndirs);

for i = 1:ndirs
    dirnames{i}=dirlist{i}.name;
end

end