Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/03/2005, 07:24
Anushka
 
Fecha de Ingreso: marzo-2004
Mensajes: 109
Antigüedad: 20 años, 7 meses
Puntos: 1
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...
__________________
Gracias

Última edición por Anushka; 04/03/2005 a las 07:27