Erro当我尝试删除目录中的文件/文件夹时

Question

*当我尝试删除特定目录中的文件夹和文件时，没有删除...

我的代码：*

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Try

        For Each temp_files In Directory.GetFiles("C:\Windows\Temp")

            File.Delete(temp_files)

        Next

        For Each temp_folders In Directory.GetDirectories("C:\Windows\Temp")

            Directory.Delete(temp_folders)

        Next

        For Each temp2_files In Directory.GetFiles("C:\Users\PEDROA~1\AppData\Local\Temp")

            File.Delete(temp2_files)

        Next

        For Each temp2_folders In Directory.GetDirectories("C:\Users\PEDROA~1\AppData\Local\Temp")

            Directory.Delete(temp2_folders)

        Next

        For Each pref_files In Directory.GetFiles("C:\Windows\Prefetch")

            File.Delete(pref_files)

        Next

        For Each pref_folders In Directory.GetDirectories("C:\Windows\Prefetch")

            Directory.Delete(pref_folders)

        Next

    Catch ex As Exception

    End Try

End Sub

为什么我不能删除？

Answer 1

您的问题是delete命令仅适用于空目录。删除内部的所有内容需要不同的重载。还要寻找许可/所有权问题。 Try / catch块可以帮助您控制可能遇到的错误。

Look here for the 2 overloads

For Each temp_folders In Directory.GetDirectories("C:\Windows\Temp")

    Directory.Delete(temp_folders, true)

Next