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 ? "trying to delete -> " + JUSTFNAME(nn) oFile.Delete() READ EVENTS CATCH TO oException ? "Catching an exception" IF oException.ErrorNo = 1 STRTOFILE("Error occurred at: " + TRANSFORM(DATETIME()); + CHR(13),"C:\Errors.log",.T.) ENDIF FINALLY ? "Clearing events" CLEAR EVENTS ENDTRY ENDFOR