create cursor tempfiles ( cFilename c(200), nSize I, dMod d, FolderAttr I, FileAttr I ) 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 ? "dele" + JUSTFNAME(nn) oFile.Delete() endif ENDFOR ENDFOR