我正在关闭并处置本地声明的流编写器，但我仍然得到另一个进程异常的文件使用

Question

我试图实现几件事：

1. 将一堆单独的文本文件合并到一个组合文件中，
2. 将组合的文件移动到一个新文件夹中。

我已将这些任务中的每一个分配给一个方法。

即使我正在关闭并处置流读取器，第一种方法中的某些内容仍保留在文件上 - 但我不知道是什么。我知道第一种方法的进程挂在文件上，因为当我注释掉第一种方法时，第二种方法可以毫无问题地移动文件。

编辑 第一种方法是返回新大文件的值。这作为参数传递给第二个方法。当第二种方法尝试引用此文件时，即程序抛出错误时（从底部开始第 5 行）

SO 上的大多数帖子建议关闭/处置 IO 对象，但我已经这样做了。他们还建议使用第三方工具来调查哪个进程挂在文件上，但我已经知道这是第一个合并方法（因为当它被注释掉时程序会运行）。

这是一个类似问题的示例： https://stackoverflow.com/questions/8088225/file- use-by-another-process-exception-in-c-sharp

我错过了什么？

newBigFile as string = mergeFiles (inputLocation, outputLocation) 
moveFiles = moveMergedFiles(inputLocation, outputLocation, newBigFile)

Private Function mergeFiles(ByVal inputLocationFilesToMerge As String, ByVal outputLocationHL7 As String) As String


    Dim newMergedFile As String = inputLocationFilesToMerge & "\jointFile" & DateTime.Now.Month & DateTime.Now.Day & DateTime.Now.Year & DateTime.Now.Hour & DateTime.Now.Minute & ".hl7"
    Dim objWriter As New System.IO.StreamWriter(newMergedFile)
    Dim HL7FilePaths As String() = System.IO.Directory.GetFiles(inputLocationFilesToMerge, "*.hl7")

    For Each p As String In HL7FilePaths
        Dim sr As StreamReader = New StreamReader(p)
        objWriter.Write(sr)
        sr.Close()
        sr.Dispose()
    Next

    objWriter.Close()
    objWriter.Dispose()

    Return (newMergedFile) 

End Function

Private Sub moveMergedFiles(ByVal inputLocationFilesToMerge As String, ByVal outputLocationHL7 As String, ByVal mergedFile As String)


    For Each q As String In System.IO.Directory.GetFiles(inputLocationFilesToMerge, "*.hl7")
        If (Not (q = mergedFile)) Then **this is where the error comes from**
            File.Move(q, outputLocationHL7 & "\" & Path.GetFileName(q)) 
        End If
    Next
End Sub

Answer 1

在 objWriter.Write(sr) 行上，您不应该调用 sr.ReadToEnd() 吗？似乎您正在传递streamReader 对象而不是流数据（除非存在我不知道的隐式转换）。

如果内存不是问题，也许可以尝试用 StreamReader 代替快速的 File.ReadAllBytes(filename)。至少这样你可以知道它是否是streamReader。

Answer 2

Dim objWriter As New System.IO.StreamWriter(newMergedFile)

代码中的其他地方还使用了这个？ - 通常这是因为您创建了太多新实例和/或该文件的流仍然打开，只需创建 objWriter As New System.IO.StreamWriter(newMergedFile) 的全局实例，

然后完成后用 objWriter.Close() 关闭它，我退出这个。代码看起来很混乱，缺乏清晰的思想和方向。

Answer 3

你没有处置 objwriter。
我还建议您对物理文件使用 FileStream

，最后但并非最不重要的是

在 C# 中使用 So（ish），因为我不是 VB 头

using (FileStream fs = new FileStream(newMergedFile, FileMode.Create, FileAccess.Write))
{
    TextWriter objWriter = new StreamWriter(fs);
    foreach(String fileName in HL7FilePaths)
    {
        using (FileStream frs = new FileStream(fileName,FileMode.Open, FileAccess.Read))
        {
            ObjWriter.AppendStream(frs);
            ObjWriter.Flush(); 
        }
    }
}

不记得新 FileStream、创建和合并的 ReadWrite 的确切语法文件和打开并读取文件模式，文件访问或类似的东西通常可以完成这项工作。

只是我们养成的习惯，始终使用 using 块，它会为您关闭并处理，Flush() 来确保，如果在您尝试读取或写入之前出现任何问题，FileStream 将无法尝试获取文件。

如果您遵循这样的路径，则很少会出现文件问题。

Answer 4

两个问题...
1）当正在使用jointFile进行写入时，您试图打开该jointFile进行读取。
2）您需要使用 sr.ReadToEnd 读取文件，如 ach

Change:

For Each p As String In HL7FilePaths      
     Dim sr As StreamReader = New StreamReader(p)   
     objWriter.Write(sr)           
     sr.Close()
     sr.Dispose()       
Next   

To:

For Each p As String In HL7FilePaths
            If p <> newMergedFile Then
                Dim sr As StreamReader = New StreamReader(p)
                objWriter.Write(sr.ReadToEnd)
                sr.Close()
                sr.Dispose()
            End If
Next