FileSytemObject - Help 1

[dwlerwill]

Can someone go though how you add a FileSytemObject to VB6

I'm trying to use the following code

Private Sub Command1_Click()

Dim fs As New FileSytemObject
Dim MyTxt As TextStream

MyTxt = fs.OpenTextFile("C:\Test1.txt", forwriting)

MyTxt.WriteLine Text1.Text
MyTxt.Close
End Sub


But it just says User-defined type defined.

I have click on on add Microsoft Runtime Scripting but once that is selected don't know what to do next.

 

[cdukes]

Ammend the following line to sinclude the SET keyword:

MyTxt = fs.OpenTextFile("C:\Test1.txt", forwriting)

as follows
SET MyTxt = fs.OpenTextFile("C:\Test1.txt", forwriting)

Chris Dukes

 

[dwlerwill]

Did that and still get User-defined type Not defined with this row highlighted

fs As New FileSytemObject

 

[Dav1e]

If you make sure that the scripting runtime is selected in the refernces dialog then the only other thing I can see is the wrong spelling of FileSystemObject.

Also you'll prbably need to put in:

Set MyTxt = fs.opentextFile("C:\Test1.txt",forWriting)

or a with block error comes up.

Hope this helps

David

 

[dwlerwill]

It now works, Thanks for your help I don't know what was wrong I Just pasted over my line with the one you put.