Hi there, I have around 50,000 or so word documents and I would like to
write a script to sort these files by author. The author is held as a
extended file attribute and so far I have not been able to find a way to
access this data. I have tried using the following Win32::OLE script to
extract these values. However under Windows 7 this does not return the
correct information. I am unsure wither this is because Windows 7 has
changed the file attribute structure, or because this method does not allow
me access to this data.

my $directory = $ARGV[0] || die "$pname requires directory as first
ar+gument\n";

find(\&main2, $directory);

sub main2{
    if(-f $File::Find::name){
        if(extention($File::Find::name) eq '.pdf'){
            #print "File: $_ Extention: " . extention($_) . "\n";
            my $shell  = Win32::OLE-> new("Shell.Application") or die;
            my $folder = $shell-> NameSpace("$File::Find::dir") or die;
            my $file   = $folder-> ParseName("$_") or die;
            for my $i (0..50){
                my $attrib = $folder-> GetDetailsOf($file, $i);
                print "$i) $_ > > $attrib\n" if ! $attrib eq '';
            }
            print "-------------------------------------------\n";
        }
    }
}

[download] <http://www.perlmonks.org/index.pl?abspart=1;displaytype=displaycode;node_id=8042
37;part=1> 

I want to be able to access this value on pdf, doc & excel files types so if
you could point me in the direction of a module or thread on how I can
achieve this I would be forever grateful. Thanks and looking forward to your
response. Tim


-- 
Thanks,

Tim