FileSystemObject Delete 'Week Old' Files

I know this is going to be blindingly simple but I've had one of those days where the more I search and try, the further away from finding the solution I am!

What I'm trying to do is really simple, but the last part of it I can't seem to get right... hopefully someone will spot it straight away.

<%
fPath = Server.MapPath(".")
qDate = DateAdd("d", -7, Now())
Response.write qDate
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = objFSO.GetFolder(fPath)
For Each i In Folder.Files
If i.DateCreated <= qDate Then
'objFSO.DeleteFile(i.Name)
Response.Write i.Name & "<br>"
End If
Next

Set i = nothing
Set Folder = nothing
%>

As you can see, I've got down to selecting all the week old files no problem, but when I come to execute the 'objFSO.DeleteFile(i.Name)' line - I either get file not found or nothing at all.

Something to do with the ServerPath?