reading open files

[tc490225]

I am trying to parse logfiles that BlackBerry Enterprise Server has open, i am able to use the following code with .vbs and it works fine, however, when I try and perform the same thing in VB.NET using the System.IO i get errors saying the file is in use.. help ! I have tried everything, including using Microsoft Scripting Runtime and FSO (Which works)

.VBS
const forWriting = 2
strFileName = InputBox("Enter Filename", "Enter Filename")
strQuery = InputBox("What User", "What User")

strQuery = lcase(strquery)

Set fso = CreateObject("Scripting.FileSystemObject")
Set inFile = fspenTextFile(strFileName, 1, False)
Set outFile = fspenTextFile("BBLogParser" & strquery & ".txt", forWriting, true)

do while inFile.atEndOfStream = False
thisLine = lcase(inFile.readLine)

'WScript.Echo thisLine

If InStr(1, thisLine, strQuery) Then
'WScript.Echo thisLine
outFile.Write thisLine & vbNewLine
End If
Loop
wscript.echo("Complete Filtering Log " & strFileName)

 

[jmcilhinney]

Try opening the file read-only. I'm not sure but that might work for a file that's already open.

 

[tc490225]

I have tried read-only..

at least I think i have.. im not exactly 100% sure. can you please post a sample.?

 

[tc490225]

readwrite is my friend

i was confused, imagine that.

working code..
Dim myFileStream As New System.IO.FileStream(TextBox1.Text, _
FileMode.OpenOrCreate, FileAccess.Read, FileShare.ReadWrite)

Dim myReader As New System.IO.StreamReader(myFileStream)

Dim sFileContents As String = myReader.ReadToEnd()

RichTextBox1.Text = sFileContents

myReader.Close()
myFileStream.Close()
MsgBox("Complete")