覆盖另一个进程正在使用的文本文件？

Question

我有一个日志文件已打开并被另一个程序使用，我通过以下内容读取了它的内容：

    Dim strContents As String
    Dim x As New FileStream(FullPath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
    Dim objReader As StreamReader
    objReader = New StreamReader(x)
    strContents = objReader.ReadToEnd()
    objReader.Close()

这适用于在另一个程序仍在使用该文件时读取该文本，但是，在此之后我立即需要截断文本文件（不删除它），使其再次为空。但该文件仍将被其他程序使用。

我尝试过

    Dim sWrite As StreamWriter
    sWrite = New System.IO.StreamWriter(FullPath, False)
    sWrite.Write("")
    sWrite.Close()

，但出现“正在被另一个应用程序使用”异常。我尝试在 StackOverflow 和谷歌搜索中查找，但似乎找不到答案，而且我也找不到使用文件流执行此操作的方法，或者我会尝试

Dim fs As New FileStream(FullPath, FileMode.Open, FileAccess.Write, FileShare.ReadWrite)

提前使用“谢谢”。

Answer 1

关于这个主题还有很多其他帖子。

检测文件是否被另一个进程（或者实际上是同一进程）锁定

如何检查文件锁定？

我可以简单地“读取”正在使用的文件吗？

解决方案似乎是：

Try
'Code to read file if its not locked by another app
Catch as System.IO.IOException

另外仅供参考，您的日志文件是非托管资源，因此确定性最终确定将有助于解决此资源争用问题。使用Using语句进行确定性终结，例如：

Using fs = New FileStream(path, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
    fs.SetLength(0)
    file.Save(fs)
    fs.Flush()
End Using

Answer 2

那是因为其他程序锁定了该文件，操作系统不会让您做您想做的事情。除非您将其他程序更改为写入时不锁定。

Answer 3

不幸的是，无论使用哪种语言，问题的解决方案都不是添加或修改几行代码那么简单。您正在描述资源争用的经典示例。

此类问题最好使用访问管理器来解决，即仲裁写入的另一个进程，以便您的程序不会覆盖其他程序所做的操作，反之亦然。

Answer 4

我不确定在其他进程关闭流之前您是否可以这样做。但是，您可以终止正在写入文件的进程。

这是一个执行此操作的示例。

Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("notepad")

For Each p As Process In pProcess
    p.Kill()
Next

看看这个：http://vbnetsample.blogspot.com/2007 /08/start-and-kill-process.html