04/03/2005, 07:24
|
| | 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 |