如何从文件夹中删除特定类型的所有文件

Question

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

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文件夹中的文件(包括子文件夹)？

Answer 1

Directory.GetFiles() 允许您应用搜索模式并返回与此模式匹配的文件.

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

有关更多信息,请查看MSDN链接:http://msdn.microsoft.com/en-us/library/wz42302f%28v=vs.110%29.aspx