使用 Directory.GetFiles 后如何释放对文件/文件夹的锁定？

Question

我正在使用IO.Directory.GetFiles 搜索文件夹中的文件。搜索完成后，在我的应用程序关闭之前，我无法使用此文件夹中的文件。我在DirectoryInfo 类中没有找到任何Dispose 函数，所以我的问题是：如何释放或解锁这些文件？

我的代码：

Dim list = IO.Directory.GetFiles(folder, "*.*", IO.SearchOption.AllDirectories)

编辑：

我再次非常仔细地检查了我的代码（我无法在另一个项目中重现我的问题），结果发现这个函数正在锁定文件：

   Public Function ComputeFileHash(ByVal filePath As String)
        Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
        Dim f As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
        f = New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
        md5.ComputeHash(f)
        f.Close()
        f.Dispose()
        Dim hash As Byte() = md5.Hash
        Dim buff As Text.StringBuilder = New Text.StringBuilder
        Dim hashByte As Byte
        For Each hashByte In hash
            buff.Append(String.Format("{0:X2}", hashByte))
        Next
        Dim md5string As String
        md5string = buff.ToString()
        Return md5string
    End Function

这很奇怪。我正在关闭 FileStream 并处理整个对象，但文件仍处于锁定状态。

Answer 1

您正在打开 2 个单独的流，然后只关闭最后一个。

 Dim f As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
 f = New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)

第一行创建一个新的文件流实例，然后，在它可以使用之前，第二行创建一个新的实例并丢弃原来的实例而不丢弃它。

你应该只需要这些行之一。

我推荐：

Dim f As New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)