"Ahmed" <Ahmed@discussions.microsoft.com> wrote in message
news:D8B8F6FC-C211-4AEE-B66A-22ACEF76387D@microsoft.com...
> Thanx again for the script. i just made a small change in it just make it
> easier for me i change the line
> if len(sPath) ^> %Len% then WScript.Echo sPath
> into
> if len(sPath) ^> %Len% then oFile.delete
> hope you dont mind and i ran it as vbscript att log off. i will put it in
> one of my labs 2moro to see if it works coz it worked for me today in my
> test
> workstation.
> some of the website that made the problem are the BBC , the university
> home
> page and youtube and others.

No, I don't mind at all you changing my script - in fact I'm glad you seized
the initiative. On the other hand you need to be aware that deleting files
without user confirmation can cause problems. During the testing phase I
would probably maintain a log like so:

iLen=240
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWshShell = CreateObject("WScript.Shell")
sFolder = oWshShell.ExpandEnvironmentStrings( _
"%UserProfile%\Local Settings\" _
& "Temporary Internet Files\Content.ie5")
Set oFolder = oFSO.GetFolder(sFolder)
For Each oSubFolder In oFolder.SubFolders
For Each oFile In oSubFolder.Files
sPath = oFile.path
if len(sPath) > iLen then
WScript.Echo sPath
oFile.Delete sPath
end if
Next
Next

Remember to invoke the script like so:
cscript //nologo c:\LongNames.vbs >> "%UserProfile%\My
Documents\LongNames.txt"