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