FileSystemObject 读文本文件

Sub test_a()

      Dim fso As New FileSystemObject

Dim fso_A, file_G, ts_F
Dim fileReader
Dim stringReader As String
Str_file = "R:\sample.htm"

    Set fso_A = CreateObject("scripting.filesystemobject")
   ' Set file_G = fso_A.GetFile(Str_file)
'    Set ts_F = file_G.OpenAsTextStream(ForReading, TristateUseDefault)
   
   '     Set ts_F = fso_A.OpenTextFile(Str_file, 1, , -2)

    Set fileReader = fso_A.OpenTextFileReader(Str_file)

    stringReader = fileReader.ReadLine()
    MsgBox ("The first line of the file is " & stringReader)

End Sub