How do I delete all files of a particular type from a folder

Question

I'm using the following code for deleting all the files in a particular folder:

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

Calling function:

DeleteFilesFromFolder("C:\New Folder")

Now, I want to delete all the *.pdf documents from new folder. How can I delete only the *.pdffiles from the folder (including the sub-folders)?

Answer 1

Directory.GetFiles() allows you to apply a search pattern and return you the files that match this pattern.

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

Check the MSDN link for more information: http://msdn.microsoft.com/en-us/library/wz42302f%28v=vs.110%29.aspx