NTFS 上のファイルの上で右クリック->[プロパティ]->[概要]で得られるタイトルなどの情報を Perl で取得する方法を教えてください。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/06/03 06:56:26
  • 終了:--

回答(1件)

id:cx20 No.1

cx20回答回数607ベストアンサー獲得回数1082004/06/03 08:34:03

ポイント50pt

URL は参考程度に。

1. DSOFILE.EXE( プロパティ取得用 COM オブジェクト)を入手します。

 [MS] Dsofile.exe Lets You Edit Office Document Properties from Visual Basic and ASP

 

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q224351

The Dsofile.dll files lets you edit Office document properties when you do not have Office installed

2. Perl から Win32::OLE を利用して COM 呼び出しを行います。

「DSOleFile」オブジェクトを利用することで、プロパティが取得できます。

 Perl / Simple prob changing office doc property

 

use Win32::OLE;

use File::Spec;

my $PropertyReader = Win32::OLE->new(’DSOleFile.PropertyReader’, ’Quit’);

my $directory = ”c:¥¥temp”;

opendir(DNAME, $directory) || die ”Unable to open the requested directory: $directory¥n”;

while( my $filename = readdir( DNAME ) )

{

next if ($filename eq ’.’ or $filename eq ’..’);

my $fullfilename = File::Spec->catdir($directory,$filename);

my $properties = $PropertyReader->GetDocumentProperties($fullfilename) || die(”Unable read file properties for ’$fullfilename’ ”, Win32::OLE->LastError());

print ”File ’$filename’ --- Title property is ’” . $properties->{title} .”’¥n”;

}

closedir(DNAME);

id:jishiha

すばらしいです。半日ネット上を探し回った挙句解決方法が見つからなかったのに、この回答でずばりでした。

2004/06/03 10:10:34

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

  • -u mizo spiral 2008-01-17 20:10:16
    3D関係の仕事をしている友人から 社内素材管理システムの構築を現在頼まれていて、仕様決めている所なのですが。 彼らは動画ファイルを扱う事が多く、サムネイルの一覧が並ぶのではな
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません