怎样用api实现把数组内容写进文本文件？

Question

一个字符窜数组，通过api把它的内容
写到文本文件中

Answer 1

有必要用API么？用文件读写的API算不算用API？

Answer 2

open app.path+"\a.txt" for output as #1for i=0 to ubound(strAAA)   'strAAA为字符串数组
  print #1,strAAA(i)
next iclose #1

Answer 3

'注意引用MICROSOFT SCRIPTING RUNTIME对象
Option Explicit
Dim fso As New FileSystemObject
Dim tstream As TextStream
Private Sub Form_Load()
Dim s() As String
ReDim s(2)
s(0) = "12333334344345553355355"
s(1) = "sdffgreretwretwet"
s(2) = "weqrvjwreoiu"
Set tstream = fso.CreateTextFile(App.Path + "\1234.txt", True)
For i = 0 To UBound(s)
 tstream.WriteLine s(i)
Next
End Sub

Answer 4

用CreateFile、lwrite、lclose三个API函数