Как получить доступ к файлу

[asn]

Пишу прогу по обработке данных из текстового файла. Проге необходимо только чтение текстового файла (построчное). Открываю и читаю файл таким образом:
Dim fs As System.IO.FileStream = New System.IO.FileStream("C:\TextFile.log", IO.FileMode.Open, IO.FileAccess.Read)
Dim SR As System.IO.StreamReader = New System.IO.StreamReader(fs)
Do Until SR.EndOfStream
msgbox (SR.ReadLine())
Loop
Если файл уже открыт другой программой (например Word), то выскакивает ошибка "The process cannot access the file 'C:\TextFile.log' because it is being used by another process."
Как можно этого избежать (требуется либо получить доступ к файлу для чтения либо перед открытием файла проверить его на возможность доступа.)

[GSerg]

А сам факт возникновения ошибки разве не является достаточной проверкой?

[Nord777]

Не знаю насколько это правильно... но тем не менее работает )

Код: Выделить всё

  Dim FI As New FileInfo("C:\TextFile.log")
        Dim SR As System.IO.StreamReader = Nothing

        Try
            SR = FI.OpenText()
        Catch EX As IOException
            FI.CopyTo("C:\TextFile.log.BAK", True)
            FI = New FileInfo("C:\TextFile.log.BAK")
            SR = FI.OpenText()
        End Try

        Do Until SR.EndOfStream
            MsgBox(SR.ReadLine())
        Loop

        SR.Close()
        FI.Delete()