Borrar un archivo con ASpUpload ?

07/03/2005 - 11:13 por Javierbh | Informe spam
Hola, utilizo el siguiente codigo para mandar un mail desde una web con un
archivo adjunto, funciona OK, pero no se como ajustar el codigo de AspUpload
para uqe una vez enviado el archivo se borre del Servidor, soy muy novato,
así que ni entrando en la ayuda de AspUpload, donde pone algo de file.delete
consigo borrarlo. Voy a colgar el codigo que utilizo y os rogaria que me
ayudarais a conseguir que funcione. Gracias por anticipado, Javier

<%
set objUpload = server.createObject("Persits.Upload")
objUpload.Save server.mappath("ArxiusMail")
set mail = server.createObject("Persits.MailSender")
mail.host = "xxxx.xxxx.com"
mail.from = "xxxx@xxxxxxx.com"
mail.addAddress "xxxx@xxxxxx.com"
Mail.Subject = "Asunto"
nombre = objUpload.form("nombre")
email = objUpload.form("email")
If Not objUpload.Files("archivo") Is Nothing Then
mail.AddAttachment objUpload.Files("archivo").Path

end if
cuerpo=""
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Email: " & email
mail.body = cuerpo
On Error Resume Next
mail.send

if Err <>0 then
response.write "Error, no se ha podido completar la operación"
else
saludo = "Gracias por escribirnos:" & nombre & ", el formulario se ha
enviado correctamente"
response.write saludo
end if

Set objUpload= Nothing
%>
 

Leer las respuestas

#1 Jhonny Vargas P. [MVP]
07/03/2005 - 15:44 | Informe spam
Hola Javier,

Puedes utilizar Microsoft Scripting Runtime con el FileSystemObject

Ejemplo

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFile "c:\temp\archivo.txt"

Set objFSO = Nothing


Para poder borrar los archivos, necesariamente los usuarios anónimos deben
tener acceso físicamente a la carpeta donde se encuentran los archivos. Los
usuarios anónimos son el IUSR_nombreservidor y el IWAM_nombreservidor y se
los das en las propiedades de la carpeta opciones avanzadas, seguridad.


Saludos,
Jhonny Vargas P.
Santiago de Chile
http://tinyurl.com/5cslu



"Javierbh" escribió en el mensaje
news:
Hola, utilizo el siguiente codigo para mandar un mail desde una web con un
archivo adjunto, funciona OK, pero no se como ajustar el codigo de
AspUpload
para uqe una vez enviado el archivo se borre del Servidor, soy muy novato,
así que ni entrando en la ayuda de AspUpload, donde pone algo de
file.delete
consigo borrarlo. Voy a colgar el codigo que utilizo y os rogaria que me
ayudarais a conseguir que funcione. Gracias por anticipado, Javier

<%
set objUpload = server.createObject("Persits.Upload")
objUpload.Save server.mappath("ArxiusMail")
set mail = server.createObject("Persits.MailSender")
mail.host = "xxxx.xxxx.com"
mail.from = ""
mail.addAddress ""
Mail.Subject = "Asunto"
nombre = objUpload.form("nombre")
email = objUpload.form("email")
If Not objUpload.Files("archivo") Is Nothing Then
mail.AddAttachment objUpload.Files("archivo").Path

end if
cuerpo=""
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Email: " & email
mail.body = cuerpo
On Error Resume Next
mail.send

if Err <>0 then
response.write "Error, no se ha podido completar la operación"
else
saludo = "Gracias por escribirnos:" & nombre & ", el formulario se ha
enviado correctamente"
response.write saludo
end if

Set objUpload= Nothing
%>

Preguntas similares