06/10/09 15:43:26 l5/Lbq4e0
スクリプト作ってみたｗｗ
//rename.jsとかで保存してsendtoにでも入れて使用すればいいと思う
var syncpath = "C:\\"//ここにjpg入ってるフォルダ指定(パス区切りは"\\")
var oSC = new ActiveXObject("ScriptControl");
oSC.Language = "VBScript";
var sFunc = 'Function InpBox(prompt, title, default)\nInpBox = InputBox(prompt, title, default)\nEnd Function\n';
oSC.AddCode(sFunc);
var args = WScript.Arguments;
if (args.length > 0){
var fs = WScript.CreateObject("Scripting.FileSystemObject");
var file = fs.GetFile(args(0));
var file_name = file.Name.split(".")[0];
var file_ext = file.Name.split(".")[1];
var Shell = WScript.CreateObject("Shell.Application");
var oFolder = Shell.NameSpace(syncpath);
var ofItems = oFolder.Items();
for(var i = 0; i < ofItems.Count; i++) {
var ofitem = ofItems.Item(i);
var ofitem_name = ofitem.Name.split(".")[0];
var ofitem_ext = ofitem.Name.split(".")[1];
if(file_name.match(RegExp(ofitem_name))){
newName = oSC.Run("InpBox", "名前変更", "名前変更", file_name);
file.Name = newName+"."+file_ext;
ofitem.Name = newName+"."+ofitem_ext;
break;
}
}
}