相关疑难解决方法(0)

我想删除文件夹中包含的所有文件。我使用的代码会删除根文件夹中的所有文件，但不会删除子文件夹中的文件。这是代码：

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

我想要的是：

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