The following code seems to generate a "Run-Time Error
430: Class does not support automation or does not support
expected interface."
I am using VB6sp5.
This error does not occur when I run the code in the IDE,
nor when I run a compiled version on the same machine as I
developed it on. However, when I distribute my program
(using Package and Deployment Wizard) this error occurs on
another machine.
Also, when I run PDW, I get an out-of-date dependency
warning for scrrun.dll. Is this related to the RTE 430?
How do I update the scrrun.dep? I downloaded and
installed scr56en.exe per Microsoft Knowledge Base
Article - 254166 "BUG: Distribution of Microsoft Scripting
Runtime Library Fails", but I still get the out-of-date
dependency warning when I run PDW.
*********CODE********
Option Explicit
Dim HelpFilename As String
Dim fso As New Scripting.FileSystemObject
Dim tso
Private Sub cmdClose_Click()
frmHelp.Hide
End Sub
Private Sub Form_Load()
Dim bytResult As Byte
HelpFilename = "Help.txt"
If Dir(HelpFilename) <> "" Then
Set tso = fso.OpenTextFile(HelpFilename, ForReading,
False)
txtHelp.Text = tso.ReadAll
tso.Close
Else
bytResult = MsgBox(HelpFilename & " not found.",
vbOKOnly, "File Not Found")
End If
End Sub