在For Each循环中调用File.Delete()无法正常删除文件的问题

嘿，我来帮你搞定这个文件删除的问题！你遇到的情况很典型：代码能找到所有文件，但PDF、DOCX这类文件只能删一部分，大概率是文件被占用或者未处理删除异常导致循环中断。下面分几种情况给你解决方案：

1. 最常见原因：未捕获删除异常导致循环中断 #

你的原始代码没有任何异常处理逻辑——如果某个PDF/DOCX被其他进程（比如Office后台进程、文件预览器）占用，File.Delete()会直接抛出异常，导致整个循环终止，后面的文件就再也不会被处理了。

给代码加上异常捕获，让循环能继续执行：

For Each filetodelete In Directory.GetFiles(filepath, "*.*", SearchOption.TopDirectoryOnly)
    Try
        ' 先移除只读属性（如果有的话）
        Dim fileInfo As New FileInfo(filetodelete)
        If fileInfo.IsReadOnly Then
            fileInfo.IsReadOnly = False
        End If
        File.Delete(filetodelete)
    Catch ex As IOException
        ' 记录被占用的文件信息，方便排查
        Debug.WriteLine($"无法删除 {filetodelete}: 文件被其他进程占用")
    Catch ex As UnauthorizedAccessException
        Debug.WriteLine($"无法删除 {filetodelete}: 权限不足")
    Catch ex As Exception
        Debug.WriteLine($"删除 {filetodelete} 失败: {ex.Message}")
    End Try
Next

这样即使某个文件删不掉，程序也会跳过它继续处理下一个，不会中断整个删除流程。

2. 提前检查文件是否可删除 #

如果想在删除前就确认文件是否被占用，可以加一个辅助函数来检测：

Private Function IsFileAvailable(ByVal filePath As String) As Boolean
    Try
        ' 尝试以独占读写方式打开文件，能打开说明未被占用
        Using fs As FileStream = File.Open(filePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
            Return True
        End Using
    Catch
        Return False
    End Try
End Function

然后在循环里先判断再删除：

For Each filetodelete In Directory.GetFiles(filepath, "*.*", SearchOption.TopDirectoryOnly)
    If IsFileAvailable(filetodelete) Then
        Try
            Dim fileInfo As New FileInfo(filetodelete)
            If fileInfo.IsReadOnly Then fileInfo.IsReadOnly = False
            File.Delete(filetodelete)
        Catch ex As Exception
            Debug.WriteLine($"删除失败 {filetodelete}: {ex.Message}")
        End Try
    Else
        Debug.WriteLine($"跳过被占用的文件: {filetodelete}")
    End If
Next

3. 排查后台占用进程 #

如果还是有文件删不掉，可以用系统工具（比如Process Explorer）查一下哪个进程在占用这些PDF/DOCX文件——通常是Office的后台进程、浏览器预览插件或者杀毒软件。关闭这些进程后再运行删除代码，应该就能正常删除了。

内容的提问来源于stack exchange，提问作者Don Nguyen