This seems to work, and seems to be telling you when it can't delete a file.

oFSO = CreateObject('Scripting.FileSystemObject')
oFolder = oFSO.GetFolder('C:\Documents and Settings\sje\Local Settings\Temporary Internet Files\Content.IE5\')
oSubFolders = oFolder.SubFolders
FOR EACH oSubFolder IN oSubFolders
  mm= oSubFolder.Path
  ?? " ",osubfolder.Files.Count
  oFiles = oSubFolder.Files
  FOR EACH oFile IN oFiles
	nn= oFile.path
	Try
	   oFile.Delete()
	CATCH
	   ? "missed " + oFile.path
	ENDTRY	
  ENDFOR
ENDFOR