在打开任何 word 或 excel 文档之前,我想提前知道该文档是否受密码保护,如果是,我想跳过它。
我正在使用 Win32::OLE 打开文件。
一种方法是尝试使用虚拟密码打开文档。
以下是我尝试过的一种方法。
my $Word = Win32::OLE->new('Word.Application');
if(!$Word){
# Word can't be opened, exit or return false
}
my $Doc;
eval{$Doc = $Word->Documents->Open("Path to your doc",undef,undef,undef,"thisIsPassword");};
if($@){
# Document opening failed, exit or return false
}
if(!$Doc){
# File doesn't exists, exit or return false
}
my $var = Win32::OLE->LastError() ;
if($var){
# File may be password protected, exit or return false
}
unless ($Doc eq '') {
# Do whatever...
}