人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: jishiha
●カテゴリ:コンピュータ
✍キーワード:NTFS Perl タイトル ファイル プロパティ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● cx20
●50ポイント

http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list56.shtml

掲示板過去の記事

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

http://www.code4u.com/?page=forum&action=view&sectionID=17&topic...

Code4u.com - your code for sourcecode

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);

◎質問者からの返答

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ