VB.Net读写文本文件指定行时遇文件占用错误，求原因

看起来你遇到的这个错误是很常见的文件IO问题——目标文件正被另一个进程持有锁定状态，导致你的代码无法打开它进行读写操作。咱们一步步拆解原因和解决办法：

错误原因分析 #

你用的File.ReadAllLines()和File.WriteAllLines()本身是封装完善的方法，会自动完成文件的打开、读取/写入和关闭操作，所以问题大概率出在外部或者代码的隐性细节上：

• 外部程序占用：最常见的情况——你的E:\myFile.txt可能还在记事本、VS Code或者其他文本编辑器里开着，这些程序会保持文件句柄不释放，直接阻止你的代码访问
• 系统/后台进程占用：比如Windows的索引服务、杀毒软件可能临时在扫描这个文件，或者之前运行的代码实例没完全退出，还握着文件的锁
• 代码隐性问题：如果你的程序其他地方有用FileStream、StreamReader/Writer操作过这个文件，但没正确关闭（比如没放在Using块里，忘了调用Close()），也会导致文件被自己的进程占用

解决办法 #

1. 先排查外部占用 #

先把所有可能打开这个文件的程序关掉，包括去任务管理器里看看有没有残留的你的程序进程（比如之前运行的调试实例没结束），然后再试一次代码。

2. 给代码加重试机制（应对临时占用） #

如果是系统后台临时占用文件，可以加个简单的重试逻辑，给系统一点时间释放文件锁：

Dim filePath As String = "E:\myFile.txt"
Dim retryCount As Integer = 3
Dim success As Boolean = False

While retryCount > 0 AndAlso Not success
    Try
        Dim lines() As String = System.IO.File.ReadAllLines(filePath)
        If lines.Length > 4 AndAlso lines(4).StartsWith("ORIGIN ") Then
            lines(4) = "ORIGIN ""250"""
            System.IO.File.WriteAllLines(filePath, lines)
        End If
        success = True
    Catch ex As System.IO.IOException
        retryCount -= 1
        ' 等待500毫秒再重试
        System.Threading.Thread.Sleep(500)
    End Try
End While

If Not success Then
    MsgBox("多次尝试后仍无法访问文件，请检查是否被其他程序占用")
End If

3. 用Using块确保资源释放（针对扩展操作） #

如果之后你需要更复杂的文件操作，一定要用Using块来自动释放文件句柄，避免自己的代码误锁文件：

Using reader As New System.IO.StreamReader(filePath)
    ' 这里写读取逻辑
End Using

Using writer As New System.IO.StreamWriter(filePath)
    ' 这里写写入逻辑
End Using

Using块会自动在代码块结束时调用Dispose()，确保文件句柄被及时释放。

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