Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Sub Sal21_101()
Dim newstr As String
Dim oldStr As String
With New FileSystemObject
With .OpenTextFile("D:\Downloads\DeleteMe\simple.txt", ForReading) [COLOR=green]' use your own filename here[/color]
oldStr = .ReadLine
Do
Do
newstr = .ReadLine
Loop Until newstr <> oldStr
Debug.Print oldStr
[COLOR=green]'your code goes here>[/color]
oldStr = newstr
Loop Until .AtEndOfStream
End With
End With
End Sub
mattKnight said:I strongly suspect that Sal21 and Luca2009 are the only people actively posting "questions:" to this forum