Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl

use Win32::OLE('in');
...
$tp = Win32::OLE->GetObject("C:\\testpic-1.JPG");
print "Readable Attribute Value: $tp->{'Readable'}\n";
print "File Name: $tp->{'FileName'}\n";

Select or download this

C:\>test.pl
Readable Attribute Value: [object]
File Name: [object]

C:\