我想通过FSO读取文件并显示出来，然后再存到另一文件中，请问如何写这几句代码？谢谢

己经解决，谢谢。
代码如下，供需要的朋友使用；
Dim filereader As New FileSystemObject
Dim file1 As TextStream
Dim str As String

Set file1 = filereader.OpenTextFile("f:\b.txt", ForReading, True)
Do While Not file1.AtEndOfLine
str = file1.ReadLine
Print str
Loop

文件的读与写
Dim filereader As New FileSystemObject
Dim file1 As TextStream
Dim file2 As TextStream
Dim str As String

Set file1 = filereader.OpenTextFile("f:\b.txt", ForReading, True)
Set file2 = filereader.OpenTextFile("f:\d.txt", ForWriting, True)
Do While Not file1.AtEndOfLine
str = file1.ReadLine
file2.WriteLine (str)
Debug.Print str
Loop

Dim tem_line As String
Open "f:\bbb.xml" For Input As #1 '打开指定文件路径的文件
Open "f:\b.txt" For Output As #2
Do Until EOF(1) '判断文件是否读完
Line Input #1, tem_line '按行读取至变量tem_line
Print tem_line
Print #2, tem_line
Loop
Close

嗯，不错。懂得结贴