Borrar un archivo con ASpUpload ?

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
%>

Como dije anteriormente soy muy nuevo en esto, así que agradeceria que la
respuestas que me dieseis fueran en forma de ejemplo aplicado a mi codigo ya
que mis conocimientos son muy muy bajos en programación.


gracias de nuevo !

Javier

"Jhonny Vargas P. [MVP]" wrote:

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
> %>
>

Bueno, al final se soluciono mi problema, la respuesta no me fue util debido
a mi falta de conocimientos, pero debido a que para los que realmente los
tienen era algo muy fácil, un buen amigo me modifico el codigo en 30 segundos
y ya todo funciona correctamente, los posteo por si le puede ser util a
alguien que este empezando como yo.

<%
set objUpload = server.createObject("Persits.Upload")
objUpload.Save server.mappath("ArxiusMail")
set mail = server.createObject("Persits.MailSender")
mail.host = "smtp.xxxxxxxxx.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 & VBNEWLINE

mail.body = cuerpo
On Error Resume Next
mail.send
objUpload.DeleteFile objUpload.Files("archivo").Path
On Error Resume Next
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
%>


A nota de comentario ... deciros que llevo muchos años navegando e
intentando aprender y nunca ningún programador de ASP me ayudo con un
problema concreto, (ningúno virtual), no se pq será, ya que con actionscript,
html, java y software de todo tipo siempre he encontrado un apoyo más que
satisfactorio. En fin, yo no desisto, así que seguramente siga por aquí
escribindo mis dudas.

Gracias al compañero que me respondio, no era o que buscaba, pero seguro me
servira en alguna ocasion cuando tenga más tablas en asp. Gracias.