vb.net – 如何在使用Directory.GetFiles后释放文件/文件夹上的

发布时间：2020-12-17 00:31:06 所属栏目：大数据来源：网络整理

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

我正在使用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,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并处理整个对象,但文件仍保持锁定状态.

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

Dim f As FileStream = New FileStream(filePath,8192)
 f = New FileStream(filePath,8192)

第一行创建一个新的文件流实例,然后,在它可以使用之前,第二行创建一个新实例并抛出原始实例而不处理它.

你应该只需要其中一条线.

我建议：

Dim f As New FileStream(filePath,8192)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!