Slette Temp. Inet. Files

Jeg har prøvet at lave et program der skulle slette temporary internet files, men jeg kan ikke få det til at virke!!

Her er kilden:
Point 30
Hvorfor kan dette script ikke slette alle mine filer i \"Temporary Internet Files\"??

Public Function getPath(strPath, Level)
  Set fsObj = CreateObject(\"Scripting.FileSystemObject\")
  Set Mainfolder = fsObj.getFolder(strPath)
  Set Files = Mainfolder.Files
  Set Folders = Mainfolder.subfolders
  For Each Folder In Folders
    List1.AddItem Mainfolder & \"\\\" & Folder.Name
    Call getPath(strPath & \"\\\" & Folder.Name, Level + 1)
  Next
  For Each File In Files
    List1.AddItem Mainfolder & \"\\\" & File.Name
    If Not Right(File.Name, 3) = \"ini\" Then
        If Not Right(File.Name, 3) = \"dat\" Then
            Kill Mainfolder & \"\\\" & File.Name
        End If
    End If
  Next
  Set fsObj = Nothing
  Set Mainfolder = Nothing
End Function

Private Sub Form_Load()
    Call getPath(\"c:\\windows\\temporary internet files\\content.ie5\", 0)
End Sub