oleg_v
09-15-2010, 05:06 AM
HI
i have this macro for openning and reading the text file.
Option Explicit
Sub Read_text_File()
Dim oFSO As New FileSystemObject
Dim oFS
Dim stext As String
Set oFS = oFSO.OpenTextFile("C:\Documents and Settings\oleg_volfson\Desktop\results.TXT")
Do Until oFS.AtEndOfStream
stext = oFS.ReadLine
MsgBox stext
Loop
End Sub
how can i after "MsgBox stext" write in the text file "operation1","operation2" and so on
thanks
i have this macro for openning and reading the text file.
Option Explicit
Sub Read_text_File()
Dim oFSO As New FileSystemObject
Dim oFS
Dim stext As String
Set oFS = oFSO.OpenTextFile("C:\Documents and Settings\oleg_volfson\Desktop\results.TXT")
Do Until oFS.AtEndOfStream
stext = oFS.ReadLine
MsgBox stext
Loop
End Sub
how can i after "MsgBox stext" write in the text file "operation1","operation2" and so on
thanks