Программка ниже прекрасно работает с локальным каталогом (например C:\temp) и  с каталогом CD (например D:\install). А присоединенные ресурсы, типа J:\project открывать не хочет. Естесственно все права на ресурс есть. Что, как и какой библиотекой нужно делать?
Спасибо.

sub SetDir {

       my $dir = shift;

       if ( !(opendir(DIR,$dir)) ) {
       print "cannot open $dir\n";
               return false;
       }

       chdir($dir);

       my @files = readdir(DIR);

       closedir(DIR);

       return @files;

}

Скорее всего, не срабатывают функции прямого доступа к директориям: opendir(), readdir() и closedir(). Попробуй сделать то же самое через glob() и -d.

Код

sub SetDir {    my ($dir) = shift;    my @files;    unless (-d $dir) {        print ("Directory $dir does not exist\n");        return (undef);    }    unless (chdir ($dir)) {        print ("Cannot change dor to $dir\n");        return (undef);    }    @files = glob ("*");    return (@files); }