10/05/01 03:26:55 uVw6Qo8N0
>>686
こんなかな
とりあえず WinXP 32bit SP3＋X-Finder 11-6-44 でいけた感じ
dsofile.dllはインストしておいて
var colCurSelected = WScript.Col(WScript.Env("CurrentSelected"));
var fs = new ActiveXObject("Scripting.FileSystemObject");
var objDSO = new ActiveXObject("DSOFile.OleDocumentProperties");
for(var i=0; i<colCurSelected.Count; i++)
{
if(fs.GetExtensionName(colCurSelected.item(i)).toLowerCase() == "jpg")
{
objDSO.Open(colCurSelected.item(i));
objDSO.SummaryProperties.Comments = "(;´Д｀)ﾊｧﾊｧ";
objDSO.Save();
objDSO.Close();
}
}