tengo un problema en un upload que hago en asp, para subir archivos, yo quiero que me los renombre al subir y estoy trabajando con esto y pasare a mostrarles el problema que me surge:
formulario.aspx
Código:
upload.asp<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <%@ Page Language="C#" %> <html dir="ltr" xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Sin título 1</title> </head> <body> <form name="form1" method="post" ENCTYPE="multipart/form-data" ACTION="Upload.asp"> <p> <INPUT TYPE=FILE SIZE=60 NAME="FILE1"> </p> <p> </p> <p><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </p> </FORM> </body> </html>
Código:
Al trata de subir el archivo, el explorer me visualiza este error:<html> <head> <title>Upload</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> .style1 { color: #FFFFFF; } </style> </head> <body style="background-color: #605148"> <% Set Upload = Server.CreateObject("Persits.Upload.1") Count= Upload.Save("AGREGO CARPETA DEL FTP DEL SITIO CON SUS RESPECTIVOS PERMISOS") %> <% = Count %> ficheros subidos. <% Dim FSO, Fich , NombreAnterior, NombreNuevo 'Inicialización NombreAnterior = imagen NombreNuevo ="Nuevo.jpg" ' Instanciamos el objeto Set FSO = Server.CreateObject("Scripting.FileSystemObject") ' Asignamos el fichero a renombrar a la variable fich Set Fich = FSO.GetFile(Server.MapPath("EN ESTE PASO TENGO DUDAS, PONGO LA MISMA CARPETA DEL SITIO DEL UPLOAD.SAVE" & NombreAnterior)) ' llamamos a la funcion copiar, 'y duplicamos el archivo pero con otro nombre Call Fich.Copy(Server.MapPath("LA MISMA CARPETA" & NombreNuevo)) ' finalmente borramos el fichero origi nal Call Fich.Delete() Set Fich = Nothing Set FSO = Nothing %> <% Set Upload = Nothing %> <a href="index.html"><span class="style1">Continuar </span></a> </body> </html>
1 ficheros subidos.
Server.MapPath() error 'ASP 0172 : 80004005'
Invalid Path
/without_flash/Upload_new.asp, line 27
The Path parameter for the MapPath method must be a virtual path. A physical path was used.
la line 27 que especifica, es:
Set Fich = FSO.GetFile(Server.MapPath("EN ESTE PASO TENGO DUDAS, PONGO LA MISMA CARPETA DEL SITIO DEL UPLOAD.SAVE" & NombreAnterior)).
Si alguien me podria ayudar en esto, se lo agradeceria.
Saludos.