Loop Through And Delete Multiple File Types In A Folder

[Excel Fox]

Sub LoopFolder()

Dim strFile As String
Dim strFileType As String
Dim strPath As String
Dim lngLoop As Long

strPath = "C:\ExcelFox"
strFileType = "*.jpeg;*.gif" 'Split with semi-colon if you want to specify the file types. Example ->> "*.xls;*.doc"

For lngLoop = LBound(Split(strFileType, ";")) To UBound(Split(strFileType, ";"))
strFile = Dir(strPath & "\" & Split(strFileType, ";")(lngLoop))
Do While strFile <> ""
Kill strFile
strFile = Dir
Loop
Next lngLoop

strFile = vbNullString
strFileType = vbNullString
strPath = vbNullString
lngLoop = Empty

End Sub