Sub testit()
Dim myvar As Variant
Dim myFolder As String
Dim i As Long
myFolder = "c:\test"
myvar = FileList(myFolder, "*.pdf")
For i = LBound(myvar) To UBound(myvar)
Kill myFolder & myvar(i)
Next
End Sub
Function FileList(fldr As String, Optional fltr As String = "*.*") As Variant
Dim sTemp As String, sHldr As String
If Right$(fldr, 1) <> "\" Then fldr = fldr & "\"
sTemp = Dir(fldr & fltr)
If sTemp = "" Then
FileList = Split("No files found", "|") 'ensures an array is returned
Exit Function
End If
Do
sHldr = Dir
If sHldr = "" Then Exit Do
sTemp = sTemp & "|" & sHldr
Loop
FileList = Split(sTemp, "|")
End Function