[vb2008] leggere file già in uso da altro processo

[eziogsv]

dovendo leggere un file .log (un file di testo), gestito da un gioco, in VB6.0 col codice

NumFile = FreeFile
Open File For Binary As NumFile
Get #NumFile, Buffer, Stringa
Close (NumFile)

in un attimo inserisco nella variabile Stringa il contenuto del file, anche se al momento è in uso da un altra applicazione (il gioco)

in VB2008 se uso il codice:

Try
Dim r As New IO.StreamReader(LogFilePath())
While Not r.EndOfStream
Riga = r.ReadLine
End While

r.Close()
Catch ex As Exception
End Try

ottengo immediatamente una eccezione di file già in usa da altra applicazione, il che è verissimo

domanda... come leggere in VB2008 un file già in uso da altra applicazione?

[oregon]

Qualcosa del genere ...

Dim fs As FileStream = New FileStream(LogFilePath(), FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
Dim sr As StreamReader = New StreamReader(fs)
Dim s As String = sr.ReadToEnd()
sr.Close()
fs.Close()

[eziogsv]

niente da fare:

System.IO.IOException = {"Il processo non può accedere al file 'C:\Giochi\MyGame\Logs\Launch.log' perché è in uso da un altro processo."}

[oregon]

Deve essere

FileShare.ReadWrite

e non

FileShare.Read

[eziogsv]

fenomeno!!

funge perfettamente

visto che ci sono approfitto: dal momento che se il gioco si prolunga il file di log può diventare discretamente grande, quando vado a rileggerlo posso dichiarare una variabile statica che mi indichi il punto da cui devo iniziare ad aprire il file, o devo necessariamente aprirmelo tutto?

lo so, una volta che è aperto, con la variabile statica comunque posso andare a leggere la stringa da quel punto in poi... era solo per abbreviare eventuali tempi di apertura di un file che potrebbe diventare grandicello, qualche mega

[oregon]

Puoi posizionare il punto di lettura prima della riga con la ReadToEnd, usando la

fs.Seek(posizione, SeekOrigin.Begin)

in cui posizione è il punto da cui vuoi iniziare a leggere.

Per memorizzare il punto attuale (per utilizzarlo in seguito) puoi salvare in una variabile il valore ottenuto da

fs.Seek(0, SeekOrigin.Current)