采集数据的刷新问题？

Question

我要一秒中采集一个数据，然后存入data.txt中，现在要同时打开data.txt观看实时采集的数据，如何实现文本文件的刷新问题啦？

Answer 1

'# 添加LOG到LISTBOX,以及存入日志文件        (/日志数据库)
Function addInfo(info As String)
  Dim strIf As String
  Dim FileName As String
  FileName = appLogPath & CStr(Date) & ".txt"
  Open FileName For Append As #1
  strIf = CStr(Now) & "  " & info & vbCrLf
  lstLog.AddItem strIf
  Print #1, strIf
  Close #1
End Function