fso type mismatch - Xtreme Visual Basic Talk

11-06-2002, 02:36 AM

basdewaard basdewaard is offline

Centurion

Join Date: Jul 2001

Location: Perth, Western Australia

Posts: 174

fso type mismatch

Anyone else get a type mismatch on the 'CreateTextFile'?
It works for 'OpenTextFile'

Code:

Private Sub Command1_Click()
    
    Dim fso As New FileSystemObject
    Dim f As File
    Dim ts As TextStream
    
    'Create a new file
    Set f = fso.CreateTextFile("C:\test.txt")
    Set ts = f.OpenAsTextStream(ForAppending)
    
    ts.Write "TEST"
    ts.Close
    
    Set f = Nothing
    Set ts = Nothing

End Sub

11-06-2002, 02:50 AM

Optikal

Codeaholic

Retired Leader
* Guru *

Join Date: Oct 2002

Location: Winnipeg, MB, Canada

Posts: 4,543

Why use FSO. Just do Open "C:\test.txt" For Output As #1

__________________
There are 10 types of people in this world, those that understand binary, and those that don't.

11-15-2002, 01:48 AM

basdewaard basdewaard is offline

Centurion

Join Date: Jul 2001

Location: Perth, Western Australia

Posts: 174

Thanks. I am well aware that the Open statement is an (often simpler) alternative.

I'm trying to find out whether or not FSO is working as it should.
FSO was created to provide specific advantages over the older file I/O statements and functions, the obvious one being object-oriented cababilities.

The 'simplicity' of my post was designed to focus on a specific feature/problem.