Thanks,
Brent Grooms
Dim oFso
Set oFso = CreateObject("Scripting.FileSystemObject")
Dim MyArray
MyArray = Array("Cookies","History")
Dim Element, MyFolder, File
For Each Element in MyArray
MyFolder = oFso.BuildPath("C:\Windows",Element)
If oFso.FolderExists(MyFolder) Then
For Each File in oFso.GetFolder(MyFolder).Files
File.Delete True
Next
End If
Next
--
link to FAQ for OE 5.5 news://msnews.microsoft.com/Olw$Jqf$$GA.196@cppssbbsa04
Mark L. Ferguson Reply Only in Newsgroup
marfer's notes for OE 5.0 > http://www.geocities.com/SiliconValley/Bay/6386/IE_ng_notes.htm
"Brent Grooms" <begr...@midamerican.com> wrote in message news:OI6H09GDAHA.247@cppssbbsa05...