>>681
丸写しだけど、こういうのはどうしたらいいの?

Script:JScript
fs = new ActiveXObject('Scripting.FileSystemObject');
fo = fs.GetFolder(WScript.Env('Current') + '\\..');
et = new Enumerator(fo.SubFolders);
r = new Array();
for (i = 0; !et.atEnd(); et.moveNext()) {
r[i] = et.item().Path;
if (WScript.Env('Current') == r[i]) {
j = i;
}
i++;
}
j++;
WScript.Open(r[j]);