/**********************************************************************
 *
 *  フォルダ参照ダイアログを使う
 *
 *  Copyright (c) 2003, 2006 AOK <soft@aokura.com>
 *
 *  注：ローカルでしか実行出来ません。
 *  注：デスクトップを選択した場合は、空文字列が返るようです。
 *
 **********************************************************************/

/* 特殊フォルダの取得 */
function getSpecialFolders(s) {
  var ws = new ActiveXObject("WScript.Shell");
  var r = ws.SpecialFolders(s);
  ws = null;
  return r;
}

/* フォルダ参照ダイアログ */
function shellBrowseForFolder(message) {
  var shell = new ActiveXObject("Shell.Application");
  var bifReturnOnlyFsDirs = 1;
  var folder = shell.BrowseForFolder(0, message, bifReturnOnlyFsDirs);
  shell = null;
  if (folder != null) {
    var folderItems = folder.Items();
    if (folderItems != null) {
      var folderItem = folderItems.Item();
      if (folderItem != null) {
        var ret = folderItem.Path + "\\";
        return ret.replace(/\\\\$/, "\\");
      }
    }
    return getSpecialFolders("Desktop");
  }
  return null;
}