- 320 名前：291 [2011/12/12(月) 12:46:28.35 ID:zZL0Yac/0]
- >319 改造するのが面白いのに 要望なので
Script:JScript
fs=new ActiveXObject("Scripting.FileSystemObject");
if (WScript.Exec('Confirm:"ランダムな文字列","20桁のランダムな文字列（a~z、A~Z、0~9）にリネームしますか"')) {
col=WScript.Col(WScript.Env("Selected"));
ran=new String();
while(ran.length<20)
ran+=fs.GetTempName().slice(3,-4).slice(0,20);
for(var i=0;i<col.Count;i++){
if(fs.FileExists(col.Item(i))){
fs.GetFile(col.Item(i)).Name=ran+"."+fs.GetExtensionName(col.Item(i));
}else{
fs.GetFolder(col.Item(i)).Name=ran;
}
}
}
// else {
// WScript.Echo('キャンセル');
// }
|
 |
