javascript显示选择目录对话框的代码

function seldir() //选择目录
{
var Dir;
var objSrc= new ActiveXObject("Shell.Application").BrowseForFolder(0,'Select the directory', 0, '');
if (objSrc!=null)
{
Dir = objSrc.Items().Item().Path;
alert(Dir);
}
}