小编Dip*_*jal的帖子

我正在使用以下代码删除特定文件夹中的所有文件:

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

通话功能:

DeleteFilesFromFolder("C:\New Folder")

现在,我想删除*.pdf新文件夹中的所有文件.如何只删除*.pdf文件夹中的文件(包括子文件夹)？

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

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

我想要的是：

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