11/07/01 01:02:20.57 9jCmgIHm0
#LANG:PerlScript
use Win32::OLE;
my $afxw = Win32::OLE->new('afxw.obj');
$afxw->MesPrint(sprintf("%d fullpath=%s", $afxw->SrcWin(), $afxw->Extract('$P / $F')));
$afxw->Exec('&TOW');
$afxw->MesPrint(sprintf("%d fullpath=%s", $afxw->SrcWin(), $afxw->Extract('$P / $F')));
&TOW 後の $F が当たらずも近からずなファイル名になるのはなんでなんだぜ。ActivePerl Xp@SP3