用fso读取文件的问题！！！！其实应该很简单！！

Question

我按照例程写的，为什么运行时总是返回错误:error‘70’permission denied！
Dim fso As New FileSystemObject, txtfile, fil1 As File, ts As TextStream
If fso.FileExists("E:\SerConfig.INI") = False Then
        Set txtfile = fso.CreateTextFile("E:\SerConfig.INI", True)
        Set fil1 = fso.GetFile("E:\SerConfig.INI")        Set ts = fil1.OpenAsTextStream(ForWriting)'在这里出现了错误××××
         ts.WriteLine (“aa”)
         ts.Close
end if
        

Answer 1

看看有没有引用 microsoft scripting runtime

Answer 2

MSDN里例程是这样的：
Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            '创建一个文件
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub

Answer 3

晕，CreateTextFile方法已经得到TextStream 对象了，处于打开状态，再打开当然没有权限写了
这样就可以了
   Dim fso As New FileSystemObject, ts As TextStream
    If fso.FileExists("E:\SerConfig1.INI") = False Then
        Set ts = fso.CreateTextFile("E:\SerConfig1.INI", True)
        ts.WriteLine ("aa")
        ts.Close
        
        Set fso = Nothing
    End If

Answer 4

写错了，Set fso = Nothing'要释放FSO对象的应该放在
If
End If
的外面