'函数名称:AddComponent
'作用:添加组件到com+对应应用中
'参数:sFolder COM+目录,sSourcePath源文件夹路径,sTargetPath目标文件夹路径,sFileName组件名
Public Function AddComponent(sComFolder As String, ByVal sTargetPath As String, sFileName As String) As Boolean
Dim oo As Object
On Error GoTo Errd
For Each oo In oCatcol
If oo.Name = sComFolder Then
oCatalog.InstallComponent sComFolder, sTargetPath & sFileName, "", "" '在这里实现安装组件到一个应用
AddComponent = True
Exit Function
End If
Next
Errd:
End Function
为啥这句
oCatalog.InstallComponent sComFolder, sTargetPath & sFileName, "", ""
会报“对象’InstallComponent‘的方法‘IComAdminCatalog2’失败“呢?
sTargetPath & sFileName是要注册的com+组件的路径和名称,如c:\test.dll