Option Explicit Dim fsoTest As New FileSystemObject fsotest.FileCopy s_UserPath & "\Temp.doc ", s_TempPath & "\User.doc"Dim file1 As File, ts As TextStream, s As String Set file1 = fsoTest.GetFile(“s_TempPath & "\User.doc") Set ts = file1.OpenAsTextStream(ForReading)
Dim fsoTest As New FileSystemObject
fsotest.FileCopy s_UserPath & "\Temp.doc ", s_TempPath & "\User.doc"Dim file1 As File, ts As TextStream, s As String
Set file1 = fsoTest.GetFile(“s_TempPath & "\User.doc")
Set ts = file1.OpenAsTextStream(ForReading)