[已解决]AtEndOfStream 属性

爱疯

AtEndOfStream 属性

 

Sub aa()
    Dim fs As Object
    Dim a As Object
    Dim retstring As String

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("d:\1.txt", True)

    MsgBox a.AtEndOfStream
   
    a.Close
    Set fs = Nothing
End Sub

请问为啥会错，应怎样改，谢谢！

最佳答案

月排行榜 / 总排行榜

小福贵

2010-9-1 18:39

应该是

Sub aa()
    Dim fs As Object
    Dim a As Object
    Dim retstring As String

    Set fs = CreateObject("Scripting.FileSystemObject")
    'Set a = fs.OpenTextFile("d:\1.txt", True)

      Set a = fs.openTextFile("d:\A.txt", , True)

    MsgBox a.AtEndOfStream
   
    a.Close
    Set fs = Nothing
End Sub

 Set a = fs.OpenTextFile

跳转到最佳答案楼层

小福贵

应该是

Sub aa()
    Dim fs As Object
    Dim a As Object
    Dim retstring As String

    Set fs = CreateObject("Scripting.FileSystemObject")
    'Set a = fs.OpenTextFile("d:\1.txt", True)

      Set a = fs.openTextFile("d:\A.txt", , True)

    MsgBox a.AtEndOfStream
   
    a.Close
    Set fs = Nothing
End Sub

 Set a = fs.OpenTextFile

豆丁

只针对只读打开的文件才有用！楼上该是正解吧

爱疯

谢谢小福贵、豆丁！

原来漏了，再去看看

[em04]