Here is the way simplified code. File::Find won't open a directory over 260 characters (it looks like an O/S limitation - thanks, everyone). I've tried putting if length statements into Wanted, but by then it is too late. I've tried wrapping the find function in an eval, but then it's too early.

What I want it to do is if it hits a directory over 255 characters, do a next or something. I want it to stick its head in the sand, and clap its hands over its little PERL ears and ignore the error.

Any ideas?

use File::Find;

$dir1="//server01/x\$/users/userguy";
print "finding media files on $dir1\.\.\.\n";
find(\&wanted, $dir1);
sub wanted {
    if (!("$File::Find::dir"=~/}/)&&(/mp3$|avi$|exe$|mpg$|wav$|zip$/i)
+){
        print "$File::Find::dir/$_\n";
        }
    
}
[download]