Dim TxtFile
Dim TxtContect As TextStream
Dim InputData as string set TxtFile=CreateObject("Scripting.FileSystemObject")
Set TxtContect = TxtFile.OpenTextFile(App.Path & "\SourceRecordSet.txt")
Do Until TxtContect.AtEndOfStream
InputData = TxtContect.ReadLine
loop
Set TxtContect = Nothing
Dim TxtContect As TextStream
Dim InputData as string set TxtFile=CreateObject("Scripting.FileSystemObject")
Set TxtContect = TxtFile.OpenTextFile(App.Path & "\SourceRecordSet.txt")
Do Until TxtContect.AtEndOfStream
InputData = TxtContect.ReadLine
loop
Set TxtContect = Nothing
这句怎么解释 创建文件流
?