Perlの話をするが、File::Findモジュールを使えば。