Double Byte in VB6.0

Ivy · March 25th, 2009, 09:43 PM

I have problem to write the double byte into text file.

c1 = int(a1) xor int(b1)
linetowrite = linetowrite + chrw(c1)

filed = app.path & "\aaa.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (filed)

Set f = fso.OpenTextFile(filed, 8, True)
f.Write linetowrite -> problem occured here msg:Invalid Procedure or argument call

anyone can help me on this?

gbianchi · March 26th, 2009, 07:56 AM

Hi... maybe the file didn't open correctly???

Can you trace the objects to see if everthing happens ok?

BrianWren · April 8th, 2009, 05:09 PM

I would add a reference to Windows Scripting Host, then change everything to:

Code:

    c1 = int(a1) xor int(b1)
    linetowrite = linetowrite & chrw(c1)
 
    Dim fso As New FileSystemObject
    Dim f   As TextStream
    filed = app.path & "\aaa.txt"
    Set f = fso.CreateTextFile(filed, True) ' The True is Overwrite.
 
    f.Write linetowrite

This causes all of the methods and members to be typed so you can see more easily any problems.