@directories = ("C:\\Projekte\\Eventmanager\\mysql\\bilder\\smilies");
     @dateien = ();
    find(sub {push(@dateien,$_) unless $_ eq '.' or $_ eq '..' or $_ eq 'Thumbs.db'},@directories);