Confusing about the error

Question

Dear All,
When I am excuting the SDK code created using VB6, the error message "run-time error '429' : activex component can't create object".
When I click debug, it refers to this following code (the yellow line colour is marking this following code):
Private Sub Class_Initialize()
Set oFSO = New FileSystemObject
Dim sSQL, LicServer, ServerPath, PathDir, FileTarget, FileSrc As String
Dim i As Integer
If Len(FileSystem.Dir(App.Path & "\" & "Settings.ini")) = 0 Then
    MsgBox "Missing File Settings.ini ", vbOKOnly, "ERR_LOG"
    If Not (oFSO.FileExists(App.Path & "\ERR_LOG.TXT")) Then
        oFSO.CreateTextFile App.Path & "\ERR_LOG.TXT", False, False
    End If
    Set oStream = oFSO.OpenTextFile(App.Path & "\ERR_LOG.TXT", ForAppending)
    oStream.WriteLine Now() & " MISSING FILE SETTINGS.INI "
    End
Else
    GetApplication
VB highlighted this one : Set oFSO = New FileSystemObject.
If I uncheck the microsoft scripting runtime in project preferences, the error message is changed. What is the solution to solve it ? I have tried to reinstall VB6 then reinstall Crystal report 9.2 or vice versa but so far it is not solved yet.
Pls give advice. I appreciate your help so much.
Rgd,
Steve
Edited by: steve andre on Aug 12, 2009 7:13 AM

Answer 1

Hello Steve,
Include Microsoft Scripting  Runtime into the project.... then you can use FSO. Choose Add reference, on COM Tab select Microsoft Scripting  Runtime .
OtherWise under System.IO namespace you can find everything wich is necessary for File and IO opearions.
You can use StreamWriter you write a textfile and IO.File.Exists to Query file exists or not. Also some fieatures has been changed from VB6 to .NET
App.Path -> My.Application.Info.DirectoryPath 
FileSystemObject -> IO namespace....
Something like this:
Dim sSQL, LicServer, ServerPath, PathDir, FileTarget, FileSrc As String
        Dim i As Integer
        If IO.File.Exists(My.Application.Info.DirectoryPath & "\" & "Settings.ini") = False Then
            MsgBox("Missing File Settings.ini ", vbOKOnly, "ERR_LOG")
            Dim sw As New IO.StreamWriter(My.Application.Info.DirectoryPath + "\ERR_LOG", True)
            sw.WriteLine(Now() & " MISSING FILE SETTINGS.INI ")
            sw.Close()
        Else
            GetApplication()
Regards
J.