ディレクトリ選択ダイアログボックスを表示するJavaScriptコード_javascriptスキル

コードをコピー コードは次のとおりです:

function seldir() //ディレクトリを選択
{
var Dir;
var objSrc= new ActiveXObject("Shell.Application").BrowseForFolder(0,'ディレクトリを選択', 0, '');
if (objSrc!=null)
{
Dir = objSrc.Items().Item().Path;
alert(Dir)
}
}