vb读写文件

Question

Option Explicit
Dim fso As New FileSystemObject, txtfile, fill As File, ts As TextStream
Dim s As String
Private Sub Command1_Click()
 
 Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("f:\e.txt", True)Set fill = fso.GetFile("f:\e.txt")
Set ts = fill.OpenAsTextStream(ForWriting)ts.Write "hello"
ts.CloseEnd Sub为什么出错，错误提示为:拒绝的权限，调试时指在Set ts = fill.OpenAsTextStream(ForWriting)这一行

Answer 1

ms的示例Visual Basic Script Copy Code
Function TextStreamTest   Const ForReading = 1, ForWriting = 2, ForAppending = 8   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0   Dim fso, f, ts   Set fso = CreateObject("Scripting.FileSystemObject")   fso.CreateTextFile "test1.txt"   ' Create a file.   Set f = fso.GetFile("test1.txt")   Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)   ts.Write "Hello World"   ts.Close   Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)   TextStreamTest = ts.ReadLine   ts.CloseEnd Function

Answer 2

 问题出在这句上 : Set txtfile = fso.CreateTextFile("f:\e.txt", True) ,直接改为fso.CreateTextFile("f:\e.txt", True)就可以了.
  另外定义的s变量在这段代码里没有任何意义,为何不删除.
 

Answer 3

示例就不要较真了。俺极少用这种方法，都是用open xxx for xxx as #xxx