Opening file problem...

[S@NSIS]

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:

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

[crispin]

Hi Shaun,

I just read in MSDN that the ReadAll method can be memory hungry, I am currently (as we speak ) running it on an 8mb text file, it worked fine on 1/2 a meg, so I thought i'd try and kill it . What sort of file are you opening? and how big is it?

[S@NSIS]

Hi,
Thanks for the reply Crispin. I can appreciate that but the file that I am trying to open contains a whole '6 LINES'.

All I am trying to do is open it to read (i will work out the writing bit later!! ).

And before anybody says to use GET and PUT etc.. I want to get it to work with the FSO.

What am I doing wrong???????

Cheers

Shaun

[crispin]

mail me the file

[S@NSIS]

Hi Crispin,
Thanks for your help. I was just about to mail it to you when I realised that the text file actually contained no text!!!
It must have got deleted when I was messing about with the 'ForReading','ForWriting' parameter!

Must be time to go home!!!!!!!!!!!!!!!

Cheers

Shaun