使用FILESYSTEMOBJECT对象。在引用中引用Microsoft Script Runtime,动态库文件名为Scrrun.dll,在系统目录下,可能不一定有,这是在IIS4以上系统中所带的,没有就先安装。使用方法如下:
Dim stream1 As Scripting.TextStream
Dim stream2 As Scripting.TextStream
Dim strAll As String
Dim strLine As String
Set file = CreateObject("scripting.filesystemobject")
Set stream1 = file.OpenTextFile("c:\1.txt", ForReading)
Set stream2 = file.OpenTextFile("c:\2.txt", ForReading)
'全部读取
strAll = stream1.ReadAll
'一行一行读取
Do Until stream2.AtEndOfLine
strLine = strLine & stream.ReadLine
Loop
set file=nothing