フォルダ選択ダイアログ

フォルダ選択ダイアログを表示します。

#title="フォルダ選択ダイアログ"
// MyFolderSelector.js
// 2013-02-04

function FolderSelectDilaog(){
    var sTitle  = "フォルダを選択してください";
//  var iOptions = 0x0240; // 新しいフォルダの作成を許可しない。
    var iOptions = 0x0040; // 新しいフォルダの作成を許可する。
    var vRootFolder = "";
//  var vRootFolder = 0x28; // ssfPROFILE（ユーザフォルダをルートにして表示）
    var shell = new ActiveXObject( "Shell.Application" );
    var folder = shell.BrowseForFolder( 0, sTitle , iOptions , vRootFolder );
    return folder;
//  return ( folder )? folder.Self.Path : "" ;
}

/*
（参考URL）
・BrowseForFolder => http://msdn.microsoft.com/en-us/library/bb774065.aspx
・iOptions        => http://msdn.microsoft.com/en-us/library/bb773205.aspx
・vRootFolder     => http://msdn.microsoft.com/en-us/library/bb774096.aspx
*/


var folder = FolderSelectDilaog();
switch ( folder ){
case null :
case "" :
    Alert( "キャンセルされました。" );
    break;
case "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" :
    Alert( "「マイコンピュータ」を選択しました。" );
    break;
default :
    Alert( "「" + folder + "」を選択しました。" );
}