write data into text file error!

[member_tdh]

Hi!

My project's work is: reat data from COM port, then report data into a text file but my result is:
"textfile.txt"

E1234567
E12345678910

I don't know why it error!

Could anybody help me!? Thanks so much!

Private Sub MSComm1_OnComm()
Dim k As Long, i As Long
Dim Buffer As Variant
Dim BytesReceived() As Byte
Dim sRxData As String
Dim sRD As String
Dim FileNum As Byte
Dim FileName As String

FileNum = FreeFile
FileName = "C:\Documents and Settings\khac trung kien\Desktop\DataApr2008.txt"
Open FileName For Append As #FileNum
With MSComm1
If .InBufferCount >= 1 Then
nCount = nCount + .InBufferCount
Label4.Caption = nCount
Label4.AutoSize = True

Select Case .CommEvent
Case comEvReceive
'Buffer = .Input 'Get serial Data
'BytesReceived() = Buffer
sRxData = sRxData & MSComm1.Input
If sRxData = "" Then sRxData = 0
For i = 1 To Len(sRxData)
Text2.Text = Text2.Text & Hex$(Asc(Mid$(sRxData, i, 1)))
Next

Print #FileNum, Text2.Text
Close #FileNum

.InBufferCount = 0

End Select
End If

'Debug.Print "Receive - " & Text2.Text
'DataLog (Text2.Text)

End With
End Sub

 

[laktronics]

Hi,
You have to set Rthreshold value to number of characters expected to be collected before the event.

Regards,
Laktronics