Hi all,

Please help me to get out of this big big trouble.

Following code is not working and displaying error "Type Mismatch" although 'conn.ini' file is created.

I need to create a file is not exists via 'conn.ini' and write to it the user name, password, remote server name and database name. If exists then just read data from the file. Let me know if there is any thing wrong with my code.

Please let me know if i need to include any reference file other than scrrun.dll to execute following code or whether there is any syntax error.

    Dim fsoObject As New Scripting.FileSystemObject
    Dim txtFileObject As Scripting.File
    Dim txtStream As TextStream

    If fsoObject.FileExists("c:\conn.ini") Then
        MsgBox "Exists!!!"

        Set txtFileObject = fsoObject.CreateTextFile("c:\conn.ini", True)
        Set txtStream = txtFileObject.OpenAsTextStream(ForReading)

        MsgBox txtStream.ReadLine
        txtStream.Close

        MsgBox "File created and data written to the file!!!"
    Else
        MsgBox "Not Exists!!!"

        Set txtFileObject = fsoObject.CreateTextFile("c:\conn.ini", True)
        Set txtStream = txtFileObject.OpenAsTextStream(ForWriting)

        txtStream.WriteLine ("[StartUp]")
        txtStream.WriteLine ("UID=sa")
        txtStream.WriteLine ("Password=manish")
        txtStream.WriteLine ("Server=Anup")
        txtStream.WriteLine ("DBName=thanksdarling")
        txtStream.Close

        MsgBox "File created and data written to the file!!!"
    End If

    Set txtStream = Nothing
    Set txtFileObject = Nothing
    Set fsoObject = Nothing

Do you think you could let us in on which line it is that throws the error?...

Tip: I suggest that you take out [u]ALL</u> exclamation marks from all prompts and messages. Just the fact that the program has anything to say at all is usually exclamatory enough; exclamation marks convey shouting, and most people quickly get tired of being shouted at...

Hi Brian,

I think that's not issue though i removed and tried same code. Still displaying same error. I need more help.

I didn't say that was the problem... I explicitly said it was a tip.

I asked you a question; are you going to answer it? (Please read these posts carefully: it will save all involved a lot of time...)

Again I ask: Which line throws the error?

hi there...

could it be this the error???

Set txtStream = txtFileObject.OpenAsTextStream(ForReading)


Openastextstream??? if that an object function????

HTH

Gonzalo