如何解決"Runtime error '429' ActiveX Component can't create object"錯誤﹖

Question

Source Code:
    Dim fsoHtm As Variant
    Set fsoHtm = CreateObject("Scripting.FileSystemObject")
       
    If Right(App.Path, 1) = "\" Then
        strAppPath = App.Path
    Else
        strAppPath = App.Path & "\"
    End If
    
    If fsoHtm.FileExists(strAppPath & "help\Lang" & strLangNo & "\root.htm") Then
         web1.Navigate strAppPath & "help\Lang" & strLangNo & "\root.htm"
    Else
         web1.Navigate "about:blank"
    End If

Answer 1

I think you should add the FileSystemObject reference into your vb code.
step as follows:
projects->references->Microsoft Scripting Runtimethen your register your this ActiveX control scrrun.dllregsvr32 c:\winnt\system32\scrrun.dllyou try it:)

Answer 2

to  zxm954712(三绝剑) 
但是如果没有引用Microsoft Scripting Runtime，出现的错误应该是无法识别而不应该是这个
代码看上去也没有错误

Answer 3

如果是在win98上出现,是否要装dcom98!

Answer 4

I think you should add the FileSystemObject reference into your vb code.
step as follows:
projects->references->Microsoft Scripting Runtimethen your register your this ActiveX control scrrun.dllregsvr32 c:\winnt\system32\scrrun.dll