7-Zip付属の7zG.exeで二重フォルダを防ぎ賢く展開するWSH JScript

extractArchive.js

var wshell = new ActiveXObject('WScript.Shell');
var fso = new ActiveXObject( 'Scripting.FileSystemObject');

var archivePath = WScript.arguments(0);
var dirPath = wshell.currentDirectory + '/' + fso.getBaseName(archivePath);

var process = wshell.Exec('"C:/Program Files/7-zip/7zG.exe" x "' + archivePath + '" -aou -spe -o"' + dirPath + '"');
while (process.status !== 1) {
  WScript.sleep(10);
}

var dir = fso.getFolder(dirPath);
if (dir.files.count + dir.subfolders.count === 1) {
  var collection = dir.files.count > 0 ? dir.files : dir.subfolders;
  (new Enumerator(collection)).item().move(fso.getParentFolderName(dir) + '/');
  fso.deleteFolder(dir);
}