Help for this page

Select Code to Download

Select or download this

sub BrowseForFolder {
   undef $Win32::FileOp::Error;
...
   $pszPath =~ s/\0.*$//s;
   $bool ? $pszPath : undef;
}

Select or download this

my $dir1 = BrowseForFolder("with handle", undef, undef, $windowid);