7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
usstdiy 2003-07-08
- 打赏
- 举报
直到了，和合
Cooly 2003-07-08
- 打赏
- 举报
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForAppending, True)
f.Write "Hello world!"
f.Close
End Sub
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForAppending, True)
f.Write "Hello world!"
f.Close
End Sub
usstdiy 2003-07-08
- 打赏
- 举报
用临时文件的方法不要，谢谢！
