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
|