Hi,
All I want to do is to open a file for reading using the FileSystemObject yet somehow I seem to be missing something somewhere! I keep getting the error 'Input past end of line' in the following code:
Code:
Public Sub Increase(vFileName As String)

   Dim FSO           As New FileSystemObject
   Dim ProjectPath   As String
   Dim vFile         As File
   Dim Exists        As Boolean
   Dim TXT           As TextStream
   Dim strTemp       As String

   ProjectPath = FSO.BuildPath(App.Path, vFileName)
   
   Exists = FSO.FileExists(ProjectPath)

   If Exists Then
      Set vFile = FSO.GetFile(ProjectPath)
   
      Set TXT = vFile.OpenAsTextStream(ForReading)
   
      strTemp = TXT.ReadAll '<<--Error occurs here
      
      TXT.Close

   End If

End Sub

Any help would be appreciated

cheers

Shaun