关于api函数 CreateObject 参数的问题,内附例子

在vb，动态创建引用对象很方便，
但是引用一些不常用的对象时，里面的参数应该如何填写？
下面的例子应该如何更改
'正则表达式 
dim obj1 
dim obj2 
dim str1 as MatchCollection
dim ml1 as matchcollection 
set obj1 = CreateObject("VBscript.RegExp") '动态创建 regexp 对象
str1 = "asfasdfafd" 
obj1.pattern = "a" 
set ml1 = obj1.Excute(str1) 
'如果我想把 obj2 动态引用 MatchCollection 对象应该如何写 ?
'我试过 set obj2 = CreateObject("VBscript.MatchCollection") ，可以这样没有用 
'而且以后是动态引用其他不常用的对象，应该如果找他的名称（即 "VBscript.RegExp" 这样的） 
'可不可以用 createobject("########-####-####-####-############") 这样的?

部件中有些类，是不可以使用CreateObject 或者new创建，需要使用部件的特定类来创建的
比如，Ms scripting running库的对象 ，只能按下面方式使用

  Dim fobj As New Scripting.FileSystemObject ’必须使用new 或者createobject创建的对象
  Dim fFolder As Scripting.Folder '只能使用Scripting.FileSystemObject 的对象获得引用
   
  Set fFolder = fobj.GetFolder(sPath) 'Scripting.FileSystemObject 对象提供的获得Folder对象的方法之一
  Set fFolder = fobj.CreateFolder(sPath)'Scripting.FileSystemObject 对象提供的获得Folder对象的方法之一

按什么方法获得对象的引用，应该看具体部件的内部设计