如何删除文件夹中的所有文件，包括子文件夹中的文件，而不删除文件夹本身或其任何子文件夹答案

【问题标题】：How to delete all the files in a folder including the files in the sub folders without deleting the the folder itself or any of its sub folders如何删除文件夹中的所有文件，包括子文件夹中的文件，而不删除文件夹本身或其任何子文件夹
【发布时间】：2014-08-09 17:23:24
【问题描述】：

我想删除文件夹中的所有文件。我使用的代码会删除根文件夹中的所有文件，但不会删除子文件夹中的文件。代码如下：

If Not Directory.Exists("C:\New Folder") Then
   Return
End If

Dim files() As String
files = Directory.GetFileSystemEntries("C:\New Folder")

For Each element As String In files
   If (Not Directory.Exists(element)) Then
      File.Delete(Path.Combine("C:\New Folder", Path.GetFileName(element)))
   End If
Next

我想要的是：

我想删除“新建文件夹”文件夹中的所有文件。在同时，我想保留子文件夹并删除它的所有文件包含。所以，操作后，“新建文件夹”可能有任意数量的子文件夹，但它甚至不应该有一个文件。

【问题讨论】：

标签： vb.net

【解决方案1】：

试试这个递归子

 Sub DeleteFilesFromFolder(Folder As String)
    If Directory.Exists(Folder) Then
        For Each _file As String In Directory.GetFiles(Folder)
            File.Delete(_file)
        Next
        For Each _folder As String In Directory.GetDirectories(Folder)

            DeleteFilesFromFolder(_folder)
        Next

    End If

End Sub

'Somewhere you call

DeleteFilesFromFolder("C:\New Folder")

【讨论】：

感谢 Nizam，这是我正在寻找的解决方案。
谢谢。非常感谢您编辑答案。