AOK's JavaScript Library
WSH5.7 (WinXP) で動作確認しています。
Last Update: Jul.22,2009

WebClass 用 zip 生成プログラム
<?xml version="1.0" encoding="shift_jis" ?>
<job>
<script language="JScript">
<![CDATA[

/********************************************************
 *
 *  WebClass 用 zip 生成プログラム
 *
 *  Copyright (c) 2009 AOK. All Rights Reserved.
 *
 ********************************************************/
var dir = ".\\html";          /* html 置き場 */
var tmp = ".\\temp";          /* 一時ディレクトリ */
var lnm = dir + "\\list.csv"; /* リストファイル名 */
var znm = "new.zip";          /* 生成ファイル名 */

/********************************************************
 *
 *  以下は触らないように!
 *
 ********************************************************/
var bin = ".\\zip.vbs\\MakeExZIP.VBS";
var fso = new ActiveXObject("Scripting.FileSystemObject");
var shell = new ActiveXObject("WScript.Shell");

/********************************************************
 *
 *  個別 zip の作成
 *
 ********************************************************/
fso.DeleteFile(tmp + '\\*.*');
var files = fso.GetFolder(dir).files;
var fc = new Enumerator(files);
for (; !fc.atEnd(); fc.moveNext()) {
  var s = '' + fc.item();
  if (s.match(/((\w+)\.(?:htm|html))$/)) {
    var m1 = dir + '\\' + RegExp.$1;
    var m2 = dir + '\\' + RegExp.$2 + '.files';
    var zp = tmp + '\\' + RegExp.$2 + '.zip';
    if (fso.FolderExists(m2))
      shell.Run(bin + ' ' + zp + ' ' + m1 + ' ' + m2, 0, true);
    else
      shell.Run(bin + ' ' + zp + ' ' + m1, 0, true);
  }
}

/********************************************************
 *
 *  最終 zip の作成
 *
 ********************************************************/
if (fso.FileExists(znm)) fso.DeleteFile(znm);
var zips = fso.GetFolder(tmp).files;
var zc = new Enumerator(zips);
var list = new Array();
for (; !zc.atEnd(); zc.moveNext()) {
  var s = '' + zc.item();
  if (s.match(/(\w+\.zip)$/))
    list.push(tmp + '\\' + RegExp.$1);
}
shell.Run(bin + ' ' + znm + ' ' + list.join(' ') + ' ' + lnm, 0, true);

/********************************************************
 *
 *  完了報告
 *
 ********************************************************/
WScript.Echo('complete !');

]]>
</script>
</job>

戻る Copyright (c) 2009 AOK. All Rights Reserved.