文件被其他程序占用时如何读取？附VB.NET代码求助

你的代码中，直接通过StreamReader传入文件路径的方式打开文件，默认会以独占读取模式锁定文件，这就是导致报错的原因。其他软件能正常访问，是因为它们采用了共享读取的文件打开策略。

修复方案 #

改用FileStream配合StreamReader，明确指定文件共享模式，同时确保文件流被正确释放：

Public Function BuscarEnArchivo(ByVal RutaBusqueda As String, ByVal CadenaBusqueda As String) As String
    Dim ResultadoBusqueda As String = String.Empty
    Dim NumeroLineaActual As Integer = 1

    ' 使用FileStream指定共享模式，确保文件被其他程序占用时仍可读取
    Using fs As New System.IO.FileStream(RutaBusqueda, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
        Using Archivo As New System.IO.StreamReader(fs)
            Try
                Do While Not Archivo.EndOfStream
                    Dim LineaTextoActual As String = Archivo.ReadLine

                    If NumeroLineaActual > UltimoNumeroLineaBusquedaAnterior Then
                        If LineaTextoActual.IndexOf(CadenaBusqueda) > -1 Then
                            ResultadoBusqueda = LineaTextoActual
                            UltimoNumeroLineaBusquedaAnterior = NumeroLineaActual

                            TebTextoEncontrado.Text = ResultadoBusqueda
                            TebLineaEncontrado.Text = UltimoNumeroLineaBusquedaAnterior.ToString
                            TebFecha.Text = Now.ToShortDateString
                            TebHora.Text = New TimeSpan(TimeOfDay.Hour, TimeOfDay.Minute, TimeOfDay.Second).ToString

                            If ChbEnviarCorreo.Checked Then
                                CorreoAsunto = TebFecha.Text & " " & TebHora.Text & " - Excepción encontrada."
                                CorreoMensaje = "Excepción encontrada en la línea " & NumeroLineaActual.ToString & ":" & Environment.NewLine & Environment.NewLine &
                                    TebFecha.Text & " " & TebHora.Text & Environment.NewLine &
                                    ResultadoBusqueda

                                EnviaCorreo()
                            End If

                            Exit Do
                        End If
                    End If

                    NumeroLineaActual += 1
                Loop
            Catch ex As Exception
                ResultadoBusqueda = String.Empty
            End Try
        End Using
    End Using

    Return ResultadoBusqueda
End Function

关键修改点 #

1. 指定文件共享模式：FileShare.ReadWrite允许其他程序同时读取或写入该文件，如果你只需要读取权限，也可以改用FileShare.Read。
2. 使用Using语句：自动释放FileStream和StreamReader资源，避免因未关闭流导致的文件锁定问题。
3. 调整变量声明位置：将变量移到合适的作用域内，提升代码可读性。

另外，你的定时器TimTemporizador1_Tick事件中，每次Tick都会重新设置Interval，这可能导致定时器间隔频繁变化，建议只在用户修改TebIntervaloComprobacion内容时更新Interval，而不是每次Tick都执行。

内容的提问来源于stack exchange，提问作者Mazinger