Delete all files in a folder

Question

I have the below code to try search for all files in my downloads folder and then delete them all however it's returning an error message based on the kill function not having enough arguments, any ideas?

Sub Kill ()

Dim aFile As String
aFile = "C:\Test\Test\Downloads\*.*"
If Len(Dir$(aFile)) > 0 Then
    Kill aFile
End If

End Sub

Thanks,

Answer 1

A more simple way:

Sub Del()
  Kill "C:\FolderName\*.*"
End Sub

Answer 2

Add a reference to Microsoft Scripting Runtime in the VBA environment

The declare in a Module the following line

Global fso As New FileSystemObject

Now you can use all the nice and modern I/O functions. For example:

Public Sub TDELFOL()    
    Dim path As String, f As File
    path = fso.GetSpecialFolder(TemporaryFolder)
    path = fso.BuildPath(path, "MyTempFolder")
    If fso.FolderExists(path) Then
        For Each f In fso.GetFolder(path).Files
            f.Delete Force = True
        Next
        fso.DeleteFolder path, Force = True
    End If
End Sub