- 429 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/08/05(日) 20:35:07 ID:UBoOdsHu0]
- >>421
前にコレ拾ったんだぜ？
テキストエディタに貼り付けて、（適当なファイル名）.wsfで保存。
あとはテキストファイルが入ったフォルダ毎 保存したwsfファイルにD&D
コピーしたフォルダで試してみるといい。
<job><script>
var fso = WScript.CreateObject("Scripting.FileSystemObject"), args = WScript.Arguments;
var names = new Array();
if (args.length < 1 || !fso.FolderExists(args(0))) WScript.Quit();
var e = new Enumerator(fso.GetFolder(args(0)).Files), fault = "リネーム失敗：\n";
for (; !e.atEnd(); e.moveNext()) {
try {
var file = e.item().OpenAsTextStream(1);
// file.SkipLine(); file.SkipLine();
var name = file.ReadLine();
file.Close();
if (names[name] != null) name += names[name]++;
else names[name] = 1;
e.item().Move(e.item().ParentFolder + "\\" + name + "." + fso.GetExtensionName(e.item().Path));
} catch (ex){ fault += e.item().Name + "\n";}
} if (fault != "リネーム失敗：\n") WScript.Echo(fault);
else WScript.Echo("完了");
</script></job>
|
 |
