LOCAL oFSO, cBaseFolder, nTotSubFolders, oFolder, nSubFolder cBaseFolder = "C:\Documents and Settings\kmarois\Local Settings\Temporary Internet Files\Content.IE5\" oFSO = CREATEOBJECT("scripting.filesystemobject") oFolder = oFSO.GetFolder(cBaseFolder) nTotSubFolders = oFolder.SubFolders.Count FOR nSubFolder = 1 TO nTotSubFolders ? nTotSubFolders ** This line causes the error cFolder = cBaseFolder + oFolder.SubFolders(nSubFolder).Name oSubFolder = oFSO.GetFolder(cFolder) FOR nFile 1 TO oSubFolder.Files.Count oSubFolder.Files(nFile).Delete() ENDFOR ENDFOR