How can I delete all files in a folder except the 3 most recent? 1

One way you can do it is this.
[tt]
Const adVarChar = 200
Const adDate = 7

[green]ipreserve=3 '# of files to preserve
sfolderpath="d:\test" 'your path to the folder[/green]

set fso=createobject("scripting.filesystemobject")
if not fso.folderexists(sfolderpath) then
set fso=nothing
wscript.echo "The folder does not exist." & vbcrlf & sfolderpath & vbcrlf & "Operation aborted."
wscript.quit
end if

set ofolder=fso.getfolder(sfolderpath)
set rs = createobject("ador.recordset")
with rs.fields
.append "filepath",adVarChar,255
.append "datelastmodified",adDate
end with

with rs
.open
for each ofile in ofolder.files
.addnew array("filepath","datelastmodified"), array(ofile.path,ofile.datelastmodified)
.update
next
end with

icount=0
if not (rs.eof and rs.bof) then
rs.sort="datelastmodified desc"
rs.movefirst
do while not rs.eof
icount=icount+1
if icount>ipreserve then
on error resume next
fso.deletefile rs.fields("filepath"),true
on error goto 0
end if
rs.movenext
loop
end if

set rs=nothing
set ofolder=nothing
set fso=nothing
[/tt]

Great Post tsuji,

I was able to implement with ease.... and very little code adjustment!!!

Gave you 2 STARS!

AccessGuruCarl
Programmers helping programmers
you can't find a better site.