/**********************************************************************
 *
 *  指定フォルダ以下のファイルリストを取得する
 *
 *      フォルダ名は出来るだけフルパスで指定すること
 *
 *  Copyright (c) 2003 AOK <soft@aokura.com>
 *
 **********************************************************************/

function getFileList(folderspec) {
  var fso, f, f1, f2;
  var list = new Array();
  fso = new ActiveXObject("Scripting.FileSystemObject");
  if (folderspec.length == 0) folderspec = ".";
  f = fso.GetFolder(folderspec);
  f1 = new Enumerator(f.files);
  for (; !f1.atEnd(); f1.moveNext())
    list.push(f1.item());
  f2 = new Enumerator(f.SubFolders);
  for (; !f2.atEnd(); f2.moveNext())
    list = list.concat(getFileList(f2.item()));
  fso = null;
  return list;
}