Kill *.tmp

[cid]

I need code similar to this:

Kill (app.path & "\*.tmp")

The following code does not work it says file not found.

[TheVader]

Private Sub Form_Load()
Dim strDir As String
strDir = Dir$(App.Path & "\", vbDirectory)
Do While strDir <> ""
If Right(strDir, 4) = ".tmp" Then
Kill App.Path & "\" & strDir
End If
strDir = Dir
Loop
End Sub