Method or Data member not found
Hi all,
I am in big trouble and i need help to sort out file read write problem.
Following code is not working and displaying error "Method or Data member not found". Please let me know if i need to include any reference file other than scrrun.dll to execute following code.
Dim fsoObject As New Scripting.FileSystemObject
Dim txtFileObject As Scripting.File
If fsoObject.FileExists("c:\conn.ini") Then
MsgBox "Exists!!!"
Set txtFileObject = fsoObject.OpenTextFile("c:\conn.ini", ForReading)
Do Until txtFileObject.AtEndOfStream
txtFileObject.ReadLine ("[StartUp]")
txtFileObject.Close
Loop
Else
MsgBox "Not Exists!!!"
Set txtFileObject = fsoObject.CreateTextFile("c:\conn.ini", ForWriting)
txtFileObject.WriteLine ("[StartUp]")
txtFileObject.WriteLine ("UID=sa")
txtFileObject.WriteLine ("Password=manish")
txtFileObject.WriteLine ("Server=Anup")
txtFileObject.WriteLine ("DBName=thanksdarling")
txtFileObject.Close
MsgBox "File created and data written to the file!!!"
End If
Set txtFileObject = Nothing
Set fsoObject = Nothing
|