请各位高手看一下程序：
 For i = 0 To ptFAIData.Count - 1
     Write #1, sDataBuffer(i)
    Next i
     Open " C:\Documents and Settings\Administrator\桌面\PCI1710\采集卡学习\data" For Append As #1
     For i = 0 To ptFAIData.Count - 1
   Write #1, sDataBuffer(i)
    Next i
    Close
    End If
    首先将采集到的数据方动态数组中，然后打开文件，写采集到的数据，但是怎么写不进去