ridimensiona e poi elimina originale

[contemacs]

Ciao a tutti
sono un vero profano e vorrei una info da voi.

Ho un componentino che si chiama dimage che fa il resize delle immagini.
Seguendo il tutorial riesco prendere l'immgine, ridimensionarla e salvare il ridimensionato.
vorri pero' dopo tale operazione eliminare l'originale.

L'originale arriva dalla pagina asp precedente e viene salvata da dimage cosi':


Dim mySmartUpload
Dim file

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload

For each file In mySmartUpload.Files

If not file.IsMissing Then
file.SaveAs("/img_orig/" & file.FileName)

'Create dImage Object
Set dImage = server.createobject("dImage.dThumb")

'Get and image to resize
dImage.GetWebImage "/img_org/" & file.FileName

'Get original image information
OriginalWidth = dImage.Width
OriginalHeight = dImage.Height
OriginalColors = dImage.Colors
OriginalcolorDepth = dImage.ColorDepth

'Resize image
dImage.ResizeByWidth 450

'Get new image information
NewWidth = dImage.Width
NewHeight = dImage.Height
NewColors = dImage.Colors
NewColorDepth = dImage.ColorDepth

'Set JPG compression quality
dImage.JPGQuality = 90

'Set the new image type
dImage.SaveAs = 1

'Save new image to disk as JPG
dImage.SaveWebImage "/img_ok/" & file.FileName

'Destroy dImage object
Set dImage = nothing

img ="/img_ok/" & file.FileName


end if



cosa devo scrivere per eliminare il file o per non salvarlo.
da qui in poi lavoro solo con img nella cartella img_ok

se eliminassi il salvataggio iniziale e partissi con


'Create dImage Object
Set dImage = server.createobject("dImage.dThumb")

'Get and image to resize
dImage.GetWebImage file.FileName

Grazie 1000

[Roby_72]

Il path del file originale ce l'hai quindi con File Sytem Object lo puoi eliminare.

Roby