对动态的weblist取得其name值

近来在做的一个项目中,每发布一次新的版本,运行脚本的时候,总会出错,后来查看了一下,发现每次的weblist的值都会改变,以至于对其进行操作的时候出错.刚开始很笨的呢.,每次都手工去改.呵呵...但是今天在网上发现了一个方法是可以取得其值的.

http://hi.baidu.com/%CB%B9%CE%C4%B0%DC%C0%E0/blog/item/3e8626a484cf05f79152eedd.html

我做了一些修改.把代码贴出来,大家看看:

'由于每次版本的weblist编号都是不同的,所以采用以下方法,动态获取weblis的编号
Set ōDesc = Descrīption.Create()
'在空的对象中添加属性micclass，并赋值为“WebList”
oDesc("micclass").Value = "WebList"
'在制定界面上获取所有属性值为”“weblist”的对象，并赋值给List（注意：赋值后lists类型一个对象数组）
Set Lists = Browser("***").Page("***").ChildObjects(oDesc)
'获取lists里面所有对象的总数
NumList = Lists.Count()
'遍历数组中所有对象
 For i = 0 To NumList - 1
ListLen1(i)=Lists(i).object.name    
Set ListLen1(i)=Descrīption.Create() '这里如果不用描述性编程的话,会报出对象库找不到对象
ListLen1(i)("Name").value=Lists(i).object.name
ListLen1(i)("class name").value="WebList"
ListLen(i)=Browser("***").Page("***").WebList(ListLen1(i)).Object.length   '获取WEBLIST的长度
msgbox ListLen(i)
'lis=Lists(i).object.name
Next

呵呵.很简单的几句,可却解决了我的问题...感叹一下网络.....有它真是好啊.