nao deleta

[betobto 0]

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.

[Mário Monteiro 179]

alguma mensagem de erro?

[betobto 0]

nenhum erro... apenas nao executa

[Ted k' 126]

Imprima "file.filename" para ver se está chegando a imagem!

[xanburzum 169]

você pode usar um code tipo explorer, dae você tem total controle sobre os arquivos e pastas