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);

　　}

　　}