主题：请教目录树代码

看表A窗口。用按钮管理EXCEL文档一没问题。我想用目录数管理EXCEL文档，参考帮助中节点代码始终不行，请指点。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

这样行不行？

将excel文件放到项目文件同一目录下（也可以建一个专用文件夹）
然后在窗口中插入一个ComboBox控件，比如名称为：ComboBox1
窗口：AfterLoad事件代码：

Dim s As String
For Each File As String In FileSys.GetFiles(ProjectPath)
    if File.Contains("xls") Then
        s = s & "|" & File
    End If
Next
e.Form.Controls("ComboBox1").ComboList = s

再增加一个打开按钮，代码：

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = e.Form.Controls("ComboBox1").Value

说明一下，楼上的代码是将excel放在项目目录。
如果放在其它目录自己改一下代码。
比如你在项目目录下建了个excel文件夹
For Each File As String In FileSys.GetFiles(ProjectPath)
将上面的代码改成：

For Each File As String In FileSys.GetFiles(ProjectPath & "excel\")

放在目录树中，没看出你文件的规律，如果路径是确定的，可以在NodeMouseDoubleClick事件中设置如下代码：

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = "f:\精华资料\结构用料\" & e.Node.Text & ".xls"

 

如果将EXCEL文件分类放进项目文件的不同的文件夹中(比如2个文件夹)代码如何呢? 
另外word文件也能这样管理吗?

我很想用目录树管理EXCEL和WORD文档，这两个类文档分别放在项目文件的2个文件夹（EXCEL和WORD）中，目录树节点代码如何写

'窗口AfterLoad事件代码

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim s As String
For Each File As String In FileSys.GetFiles(ProjectPath & "excel\")
    if File.Contains("xls") Then
        s = FileSys.GetName(File).Replace(".xls","")
        tv.Nodes.Add(s,s)
    End If
Next

'目录树NodeMouseDoubleClick事件代码(也就是双击事件)

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "excel-:special:1:- & e.Node.Text & ".xls"

Word在WebBrowser中显示我还没学会。

上面的目录树双击代码乱码了，再发一次。

'目录树NodeMouseDoubleClick事件代码(也就是双击事件)

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "excel\" & e.Node.Text & ".xls"