LogFileName = App.Path & "\log.fil" Open LogFileName For Append As #1 ' 打开输出文件 Print #1, "可以是数据库中的内容!循环以下" Close #1
打开MSDN,关键字“FileSystemObject”,里面详尽的帮助及范例
先引用Microsoft scripting control 用filesystemobject对象
open "C:\test.txt"for append as 1 ?井1,"klasjdfkaksdkfasdfsad","this is a test";"haha",123 close
Option ExplicitPrivate Sub Command1_Click() Dim i As Integer Dim ss(10) As String Dim Weeks(7) As String * 6 Weeks(1) = "星期日" Weeks(2) = "星期一" Weeks(3) = "星期二" Weeks(4) = "星期三" Weeks(5) = "星期四" Weeks(6) = "星期五" Weeks(7) = "星期六" '写入 Open "c:\aa.txt" For Output As #1 For i = 1 To 7 Print "写入:"; Weeks(i) Print #1, Weeks(i) Next i Close #1
'读出 Open "c:\aa.txt" For Input As #1 i = 0 Do Until EOF(1) Input #1, ss(i) Print "读出:"; ss(i) i = i + 1 Loop Close #1 '把读出的打印在form上 For i = 0 To 6 Print "ss("; i; ")="; ss(i) Next i End Sub
用FileSystemObject把!
LogFileName = App.Path & "\log.fil"
Open LogFileName For Append As #1 ' 打开输出文件
Print #1, "可以是数据库中的内容!循环以下"
Close #1
用filesystemobject对象
?井1,"klasjdfkaksdkfasdfsad","this is a test";"haha",123
close
Dim i As Integer
Dim ss(10) As String
Dim Weeks(7) As String * 6
Weeks(1) = "星期日"
Weeks(2) = "星期一"
Weeks(3) = "星期二"
Weeks(4) = "星期三"
Weeks(5) = "星期四"
Weeks(6) = "星期五"
Weeks(7) = "星期六" '写入
Open "c:\aa.txt" For Output As #1
For i = 1 To 7
Print "写入:"; Weeks(i)
Print #1, Weeks(i)
Next i
Close #1
'读出
Open "c:\aa.txt" For Input As #1
i = 0
Do Until EOF(1)
Input #1, ss(i)
Print "读出:"; ss(i)
i = i + 1
Loop
Close #1
'把读出的打印在form上
For i = 0 To 6
Print "ss("; i; ")="; ss(i)
Next i
End Sub
要引用文件:C:\windows\scrrun.dll