Deleting Files Using FSO

Hi all,

I have the following wee script which deletes pdf files in a folder.

Is there a way i can customize so that it check all subfolders within folder?

Function DeletePDFS()
Dim fso As Object, file As Object, folder As Object, subfolder As Object, s As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Documents and Settings\c.connor\My Documents\deletePDFS\filesToDelete\")
For Each file In folder.Files

fso.DeleteFile "C:\Documents and Settings\c.connor\My Documents\deletePDFS\filesToDelete\*.pdf"

Next file

End Function

Thanks in advance!!
C