ASP upload renombrar archivo

[Anushka]

Bueno, ya estoy otra vez con el lio.

Tengo dos paginas (funcionan perfectamente) para que los usuarios suban los archivos al servidor.
Una con formulario:

form name="form1" method="post" ENCTYPE="multipart/form-data" ACTION="Upload.asp">
<p>
<INPUT TYPE=FILE SIZE=60 NAME="FILE1">
</p>
<p>&nbsp; </p>
<p><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">

</p>
</FORM>

Y otra Upload.asp:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("d:\hcrt\misitio.com\html\carpeta")
%>
<% = Count %> ficheros subidos.

Tambien tengo un ejemplo de script para renombrar el archivo subido:

<%
Dim FSO, Fich , NombreAnterior, NombreNuevo
NombreAnterior ="Anterior.txt"
NombreNuevo ="Nuevo.txt"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Fich = FSO.GetFile(Server.MapPath("\" & NombreAnterior))
Call Fich.Copy(Server.MapPath("\" & NombreNuevo))
Call Fich.Delete()
Set Fich = Nothing
Set FSO = Nothing
%>

La pregunta es ¿Como saco el nombre de archivo "Anterior.txt"?

[Anushka]

Bueno, se me ha ocurrido el siguiente:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("c:\htrt\misitio.com\html\carpeta")
%>
<%
Function RenombrarArchivo(origen,destino)
Dim fso, nombre
Set fso = CreateObject("Scripting.FileSystemObject")
nombre=upload.form("FILE1")
if (fso.FileExists(origen)) then fso.MoveFile origen, destino
end if
set fso = nothing
End function
%>
<% RenombrarArchivo Server.Mappath("nombre"),Server.Mappath("NEW_nombr e")%>
<% = Count %> ficheros subidos.

me da error interno de servidor...

[Anushka]

Sigo con lio ya puedo subir el archivo y renombrarlo con el codigo:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("c:\hcrt\misitio.com\html\carpeta")
%>
<% = Count %> ficheros subidos.
<%
Dim FSO, Fich , NombreAnterior, NombreNuevo
'Inicialización
NombreAnterior = "archivo.jpg" <- este nombre del archivo lo introduzco "a mano"
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("\carpeta\" & NombreAnterior))
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fich.Copy(Server.MapPath("\carpeta\" & NombreNuevo))
' finalmente borramos el fichero original
Call Fich.Delete()

Set Fich = Nothing
Set FSO = Nothing
%>

Lo unico que no consigo es sacar el nombre original del archivo desde el formulario de introdución de datos.
He probado con upload.form ...nada
POR FAVOOOOOOOR ¿Alguna ayudiiiiiiitaaaaaaaaa?

[Anushka]

Ole Yoooooooooooooo!!!!!!!!!!!!!!!
Ya lo tengo!!!!!!!!!!!!!!!!!
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("c:\chrt\misitio.com\html\carpeta")
imagen = Upload.Files("ar").FileName
%>
<% = 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("\carpeta\" & NombreAnterior))
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fich.Copy(Server.MapPath("\carpeta\" & NombreNuevo))
' finalmente borramos el fichero original
Call Fich.Delete()

Set Fich = Nothing
Set FSO = Nothing


%>
<%
Set Upload = Nothing
%>

[Lercha]

Hola, me podrias hechar una mano con ese codigo , me gustaría subir archivos de toda clase, es decir, me da = el tamaño y el formato,,, solo lo quiero para los administradores, y ando un poco verde en asp , me podrías poner el codigo y explicado , como por ejemplo si hay k dar permisos de algun tipo a la carpeta del servidor o k,,,
me harias un gran favor...

saludos

[Anushka]

Si no tienes que renombrar el archivo subido este codigo te servira:
La pagina con formulario:

form name="form1" method="post" ENCTYPE="multipart/form-data" ACTION="Upload.asp">
<p>
<INPUT TYPE=FILE SIZE=60 NAME="FILE1">
</p>
<p><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">

</p>
</FORM>

La pagina Upload.asp:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("d:\hcrt\misitio.com\html\carpeta")
%>
<% = Count %> ficheros subidos.

La carpeta si tiene que tener los permisos de escritura.

[kikesama]

Iniciado por Anushka

Bueno, ya estoy otra vez con el lio.

Tengo dos paginas (funcionan perfectamente) para que los usuarios suban los archivos al servidor.
Una con formulario:

form name="form1" method="post" ENCTYPE="multipart/form-data" ACTION="Upload.asp">
<p>
<INPUT TYPE=FILE SIZE=60 NAME="FILE1">
</p>
<p>&nbsp; </p>
<p><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">

</p>
</FORM>

Y otra Upload.asp:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("d:\hcrt\misitio.com\html\carpeta")
%>
<% = Count %> ficheros subidos.

Tambien tengo un ejemplo de script para renombrar el archivo subido:

<%
Dim FSO, Fich , NombreAnterior, NombreNuevo
NombreAnterior ="Anterior.txt"
NombreNuevo ="Nuevo.txt"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Fich = FSO.GetFile(Server.MapPath("\" & NombreAnterior))
Call Fich.Copy(Server.MapPath("\" & NombreNuevo))
Call Fich.Delete()
Set Fich = Nothing
Set FSO = Nothing
%>

La pregunta es ¿Como saco el nombre de archivo "Anterior.txt"?

AspUpload no tiene una utilidad para renombrar como FSO. Pero podés Moverlo, con otro nombre y ya está.


<%
for each File in Upload.File
File.Move Server.MapPath("../otraruta") & "\" & File.FileName
next
%>

[Myakire]

5 años después, seguro ya resolvió el problema