请问大哥，在javascript中怎么能实现向vb中的commondialog的功能，为了采集一个路径

Question

<object id=FileDialog style="left: 0px; TOP: 0px" classid="clsid:f9043c85-f6f2-101a-a3c9-08002b2f49fb" codebase="http://activex.microsoft.com/controls/vb5/comdlg32.cab">
</object>
<input type=button value="打开Word文档" onclick='OpenFile()'>
<input type=button value="HTML格式" onclick='window.confirm(App.innerHTML)'>
<div align=left id=App style="border:1 solid #000000;background-color:#FFFFFF;height:400px;overflow:auto;width:100%;z-index:2" contentEditable></div>
<script>
function OpenFile()
{
try
{
FileDialog.CancelError=true;
FileDialog.Filter="Word模板|*.doc|Word模板|*.dot";
FileDialog.ShowOpen();
var WordApp=new ActiveXObject("Word.Application");
WordApp.Application.Visible=false;
var Doc=WordApp.Documents.Open(FileDialog.filename);
Doc.Activate();
Doc.Parent.Options.InsertedTextColor=4;
Doc.Parent.Options.InsertedTextMark=2;
Doc.Parent.Options.DeletedTextColor=4;
Doc.Parent.Options.DeletedTextMark=1;
Doc.TrackRevisions=true;
Doc.PrintRevisions=true;
Doc.ShowRevisions=true;
Doc.Application.UserName="";
var Range=Doc.Range();
Range.Select();
var Selection=WordApp.Selection;
Selection.Copy();
App.focus();
document.execCommand("Paste");
App.focus();
WordApp.DisplayAlerts=false;
Doc.Close();
WordApp.DisplayAlerts=true;
WordApp.Quit();
}
catch(e){}
return false;
}
</script>

Answer 1

选择路径也可以
<input type=button value=选择路径 onclick="window.confirm(BrowseFolder())">
<script>
function BrowseFolder()
{
var Message="请选择文件夹";
var Shell=new ActiveXObject("Shell.Application");
var Folder=Shell.BrowseForFolder(0,Message,0x0040,0x11);
if(Folder!=null)
{
Folder=Folder.items();//返回FolderItems对象
Folder=Folder.item();//返回Folderitem对象
Folder=Folder.Path;//返回路径
if(Folder.charAt(Folder.length-1)!="\\")
{
Folder=Folder+"\\";
}
return Folder;
}
}
</script>

Answer 2

如果没事请看杀手锏
http://blog.csdn.net/gjd111686/gallery/27646.aspx

Answer 3

您的杀手锏确实厉害，可是这些都是中国的吗？我看有些不是的，是外国的图片吧。
谢谢您提供的程序，可是第二个程序有些问题，我执行的时候它说我没有权限呀。为什么？
var Folder=Shell.BrowseForFolder(0,Message,0x0040,0x11);
就是这个有问题。

Answer 4

大哥，我把IE中的安全级别也降低到了最底级，它也在IE中左下角显示一个黄色的小叹号。显示错误。不知这该怎么办？谢谢。