从树结构导出的数据再次导入树结构treeview中，下面程序是需要手动选择文件才能导入，怎么改可以直接选定固定的文件导入，不用选择？

SubOnClick(ByvalItem)
DimTV,CD,FileNAMe,objxml,i,Element
SetTV=ScreenItems("TV")
SetCD=ScreenItems("CD")
SeTObjxml=Createobject("MSXML2.DOMDoCUment")
CD.Filter="*.xml|*.xml"
CD.FilterIndex=20
CD.ShowOPen
FileName=CD.FileName
TV.nodES.clear
Callobjxml.load(FileName)

Fori=0Toobjxml.getElementsByTagName("NODE").length-1
SetElement=objxml.getElementsByTagName("NODE").Item(i)
IfElement.getAttribute("ParentKey")=""Then
TV.Nodes.Add,,Element.getAttribute("Key"),Element.getAttribute("Caption")
Else
TV.Nodes.AddElement.getAttribute("ParentKey"),4,Element.getAttribute("Key"),Element.getAttribute("Caption")
EndIf
Next
Fori=1ToTV.nodes.count
IfTV.nodes.item(i).Children>0Then
TV.Nodes(i).Expanded=True
EndIf

Next
TV.Nodes(1).Selected=True
TV.Nodes(1).EnsureVisible
TV.STyle=6
TV.LineStyle=1

EndSub

最佳答案

名为CD的控件是CommonDialog，删除弹出对话框的代码，设置TV的Load方法为指定路径即可。

SubOnClick(ByvalItem)
DimTV,CD,FileName,objxml,i,Element
SetTV=ScreenItems("TV")
SetCD=ScreenItems("CD")”删除
Setobjxml=Createobject("MSXML2.DOMDocument")
CD.Filter="*.xml|*.xml"”删除
CD.FilterIndex=20”删除
CD.ShowOpen”删除
FileName=CD.FileName”设置指定路径如"c:\tmp\test.xml"
TV.nodes.clear

提问者对于答案的评价：
太谢谢你了，问题解决。