# so werden alle verzeichnisse bis zum letzten ordner durchsucht # und in einem array gespeichert $vz ="C:/"; sub zeige { push(@pathnames, "$File::Find::name"."/") if (-d); } find (\&zeige,$vz);