I need to read a Text file thats in use.

[DigitalMyth]

The process can not access the file 'C:\Program Files\EA GAMES\MOHAA\mainta\qconsole.log' because it is being used by another process.

I need to read this file that is in use. How do i do it?

[rdove]

What are you currently using to read the file?

I have had much success with the System.IO.Streamreader in situations like this.

[DigitalMyth]

File: Status.aspx?session=3000

<%    
 
        Dim path as String = "C:\Program Files\EA GAMES\MOHAA\mainta\qconsole.log"
    
    Dim fs as filestream
 
        fs = File.OpenRead(path)
        Dim b(1024) As Byte
        Dim temp As UTF8Encoding = New UTF8Encoding(True)
 
        Do While fs.Read(b, 0, b.Length) > 0
            response.write(temp.GetString(b))
        Loop
        fs.Close()
 
 
 %>

[rdove]

Try:

Dim sr As StreamReader
Dim strText As String
Dim path as String = "C:\Program Files\EA GAMES\MOHAA\mainta\qconsole.log"

Try
     sr = New StreamReader(path)
     strText = sr.ReadToEnd()
     sr.Close()
Catch ex As Exception
     Throw
End Try

[DigitalMyth]

same error on throw.

i don't understand this because i made a simple VB program to do the same thing can that has no problems.

[rdove]

Have you given the ASPNET client and IUSR account read access to file? It could be a hidden permissions issue.

[plenderj]

Try this

FileOpen(intFileNumber, "C:\Program Files\EA GAMES\MOHAA\mainta\qconsole.log", OpenMode.Input, OpenAccess.Read, OpenShare.Shared)

[DigitalMyth]

Yes the permissions are correct.

And what class is Openfile under i can't find it???

[plenderj]

Sorry you need to ensure you're importing from the System.IO namespace

[DigitalMyth]

BC30456: 'Openfile' is not a member of 'IO'.

[rdove]

Originally posted by DigitalMyth
BC30456: 'Openfile' is not a member of 'IO'.

Its FileOpen not OpenFile, so I imagine you are having a syntax error

Jamie's code worked fine for me, I didn't need to import the system.io class for make it work

[DigitalMyth]

Oooopppsss. Sorry, I didn't see ya mistake.

Thanks it working great now.

DigitalMyth

<%    
 
 
        FileOpen(1, "C:\Program Files\EA GAMES\MOHAA\mainta\qconsole.log", OpenMode.Input, OpenAccess.Read, OpenShare.Shared)
    
    
    Do While Not EOF(1)  
 
           Dim TextLine as string = LineInput(1) 
 
           Response.write(Textline)
           Response.Write("<br>")
    Loop
 
 
    Fileclose(1)
 
 %>