VB.NET多层For循环嵌套故障求助：安全删除函数陷入循环

我在实现VB.NET文件安全删除函数时碰到了多层For循环嵌套导致的死循环问题，函数逻辑是生成随机垃圾数据多次覆写文件后删除。试过移除冗余判断、调整字节数组声明、修改循环计数逻辑等十几种方案，代码还是卡在循环里跑不完。十年没碰编程了，完全没思路，附上代码和错误截图求帮忙。

问题代码 #

Sub SecureDeleteFile(filePath As String)
    Dim fileSize As Long = New FileInfo(filePath).Length
    Dim rng As New Random()
    Dim buffer(1023) As Byte

    ' 覆写3次
    For overwriteCount As Integer = 1 To 3
        Using fs As New FileStream(filePath, FileMode.Open, FileAccess.Write)
            ' 按块覆写文件
            For position As Long = 0 To fileSize Step buffer.Length
                rng.NextBytes(buffer)
                fs.Write(buffer, 0, buffer.Length)
            Next
        End Using
    Next
    File.Delete(filePath)
End Sub

错误截图 #

问题排查与修复 #

死循环核心原因 #

1. For循环终止条件错误：当fileSize不是buffer.Length的整数倍时，position最终会停在小于fileSize但加上buffer.Length超过fileSize的位置，此时position To fileSize的循环条件会一直满足（因为Step buffer.Length后position不会超过fileSize，但循环永远到不了终止值）。
2. 文件流未重置指针：每次覆写循环后，文件流的指针停在文件末尾，后续覆写会从末尾开始写入，导致实际没有覆盖原有数据，同时循环逻辑错误加剧死循环。
3. 缓冲区写入长度未适配剩余字节：最后一块数据不足buffer.Length时，仍然写入整个缓冲区，会导致文件被拉长，进一步打乱循环计数。

修正后的代码 #

Sub SecureDeleteFile(filePath As String)
    ' 先判断文件是否存在
    If Not File.Exists(filePath) Then Exit Sub

    Dim fileInfo As New FileInfo(filePath)
    Dim fileSize As Long = fileInfo.Length
    Dim rng As New Random()
    ' 根据文件大小设置缓冲区，小文件直接用文件长度当缓冲区
    Dim bufferSize As Integer = If(fileSize < 1024, CInt(fileSize), 1024)
    Dim buffer(bufferSize - 1) As Byte

    ' 执行3次覆写（符合安全删除的最低标准）
    For overwriteCount As Integer = 1 To 3
        Using fs As New FileStream(filePath, FileMode.Open, FileAccess.Write)
            fs.Position = 0 ' 每次覆写前重置指针到文件开头
            Dim remainingBytes As Long = fileSize

            ' 用While循环处理剩余字节，避免For循环的计数陷阱
            While remainingBytes > 0
                Dim bytesToWrite As Integer = If(remainingBytes < buffer.Length, CInt(remainingBytes), buffer.Length)
                rng.NextBytes(buffer)
                fs.Write(buffer, 0, bytesToWrite)
                remainingBytes -= bytesToWrite
            End While
            fs.Flush() ' 强制将缓存写入磁盘
        End Using
        ' 刷新系统磁盘缓存，确保覆写数据真正落地
        FileStream.FlushAll()
    Next

    ' 删除目标文件
    File.Delete(filePath)
End Sub

关键优化点 #

• 改用While循环处理剩余字节，彻底避免For循环的计数逻辑错误。
• 每次覆写前重置文件流指针，确保完整覆盖整个文件内容。
• 动态调整缓冲区大小，适配小文件场景，减少不必要的循环次数。
• 添加Flush和FlushAll操作，避免系统缓存导致覆写不生效的问题。
• 增加文件存在性判断，避免空指针异常。

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