for my $file (@verz) {
        $Config{tl}->update();
        last if $Config{abbr} == 1;
        $text2 = '.' x $i;
        $i = 0 if ++$i > 3;
        if ($file =~ /\.lnk$/) {
            _check($file);
            next;
        }
        if(-d $file) {
            opendir DIR,$file or die "Konnte Verzeichnis $file nicht öffnen: $!";
            push @verz,map { $file . '\\' . $_ } grep !/^\.\.?$/ && (-d $file . '\\' . $_ or /\.lnk$/i), readdir DIR;
            closedir DIR;
        }
    }