请教:实时保存数据的问题~

[OSYLL]

'在采集数据时想实现,采回来马上就以.txt形式保存下来,以免数据因断电丢失
'在别的地方已经设置timer.Enabled和timer.Interval属性,且Interval比采集延迟1ms,但还是保存不了,请教为什么??感激不尽!!!!!!!!!!!
Private Sub Timer2_Timer()
Dim nFile As Integer
On Error GoTo ErrHandler 'intDataLine 为公共变量,strMyFilenam也是公共变量
intDataLine = intDataLine + 1 '行数递增,在form_LOAD事件中赋初值intDataLine=0
nFile = FreeFile
Open App.Path & "\" & strMyFilenam For Append Shared As #nFile
With Data 'Data是MSFlexGrid控件,每行6个数据已经写入
Print #nFile, Spc(8), .TextMatrix(DataLine, 0), Spc(8), _
.TextMatrix(DataLine, 1), Spc(8), _
.TextMatrix(DataLine, 2), Spc(8), _
.TextMatrix(DataLine, 3), Spc(8), _
.TextMatrix(DataLine, 4), Spc(8), _
.TextMatrix(DataLine, 5)
End With
Close #nFile
ErrHandler:
Exit Sub
If DataLine = Data.Rows Then Timer2.Enabled = False
end sub

[射天狼]

保存不上，什么都没存上吗，
你先把错误处理关闭，
看是否出现错误了！？

[OSYLL]

什么都没有存上.而且我保存第一个数据比采集迟1ms,以后这个延迟会以1ms递增.
我先关掉出错处理看一下~

[OSYLL]

谢谢cuizm的提醒,问题解决了,是我的strMyFilenam已经包含了路径名,前面的App.path就重复了~