Writting to an ASCII File from VB6 no quotations

kf4rrm · April 18th, 2006, 11:21 AM

I Have a need to write records from a VB6 application to an ASCII text file (comma delimited) but not include quotation marks in the text. All my efforts thus far result in the records being written with the quotations in place. Any help will be appreciated.

Raghunathan · April 19th, 2006, 11:01 AM

hi

you can use the FileSystemObjects and TextStream Object to write the file. but
if u can post the code that you've tried so far. then it'd be of a great help to solve the problem.

as far as i've seen, we wont get any quotation marks while write ascii text files.

any how if i can c the code that u've tried, i would be able to help u solve the problem ASAP

Regards,
Raghu

BrianWren · April 21st, 2006, 03:32 PM

First set a reference to the Microsoft Windows Scripting Runtime.

Code:

    Dim fso As FileSystemObject
    Dim ts as TextStream

    Set fso = New FileSytemObject
    Set ts = fso.OpenTextStream(<path & file>, ForWriting)

    With MyRecordSet
        Do Until .EOF
            ts.WriteLine !Fld1 & "," & _
                         !Fld2 & "," & _
                         !Fld3 & "," & _
                         !Fld4 & "," & _
                         !Fld5 & "," & _
                         !Fld6
            .MoveNext
        Loop
    End With

This is of the top of my head, so a few of the names might be a little off, and the argument count too, but you should be able to get this from the Intellisense.