nao deleta

olá tenho este codigo para upload

<%
response.buffer=true
Server.ScriptTimeout = 99999999

Set Upload = Server.CreateObject("Persits.Upload")

vcodProduto=Upload.Form("codProduto")

Upload.OverwriteFiles = False

Upload.Save server.mapPath("img/blogs/")

NewName = Session.SessionID

For Each File in Upload.Files
file.Copy server.mapPath("img/blogs/img_" & replace(date, "/", "")&replace(time, ":", "") & "_" & file.filename)
file.Delete
vFile= "img_" & replace(date, "/", "")&replace(time, ":", "") & "_" & file.filename
Next

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Function Rand(RndMax,RndMin)
If RndMax = Null Or RndMin = Null Then
Exit Function
End If
Randomize
Rand = Int((RndMax - RndMin + 1) * Rnd + RndMin)
End Function

numero=Rand(1000,1)

'FOTO Grande ----############################################
Jpeg.Open Server.mappath("img/blogs/"&vFile)
Jpeg.Width = 82'val / Jpeg.OriginalWidth * Jpeg.OriginalHeight
Jpeg.Height = 82'Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
Jpeg.Save Server.mappath("img/blogs/gd_"&numero&vFile)

'FOTO Pequena----############################################
Jpeg.Open Server.mappath("img/blogs/"&vFile)
Jpeg.Width = 82'val / Jpeg.OriginalWidth * Jpeg.OriginalHeight
Jpeg.Height = 82'Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
Jpeg.Save Server.mappath("img/blogs/pq_"&numero&vFile)

%>

<script>
parent.document.dados.foto.value='<%="gd_"&numero&vFile%>';
parent.document.dados.fotopeq.value='<%="pq_"&numero&vFile%>';
parent.document.fotoEvento.src='img/blogs/<%="gd_"&numero&vFile%>';
</script>

mas esta linha

file.Delete

onde tenho que deletar o arquivo nao está funcionando.