Cita:
Iniciado por tammander 
No uses el MapPath. Segun veo el script que ejecuta las instrucciones anteriores no esta en el camino de los archivos que guardas (/without_flash/Upload_new.asp). Usa directamente la direccion absoluta, tal como haces para guardar con el Upload:
Count= Upload.Save("/c:/clients/misitio/data")
Quedaria asi:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("/c:/clients/misitio/data")
%>
<% = 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("c:\clients\misitio\data\" & NombreAnterior)
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fich.Copy("c:\clients\misitio\data\" & NombreNuevo)
' finalmente borramos el fichero original
Call Fich.Delete()
Copialo y pegalo en tu script.
tammander, mira eh hecho lo que me dijiste, perdona pero eh aclarado las carpetas para un mejor entendimiento.
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("
d:/clients/misitio/carpetaftp/without_flash/newfile")
%>
<% = 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("
d:/clients/misitio/carpetaftp/without_flash/newfile" & NombreAnterior)
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fich.Copy("
d:/clients/misitio/carpetaftp/without_flash/newfile" & NombreNuevo)
' finalmente borramos el fichero original
Call Fich.Delete()
Los archivos formulario.aspx y upload_new.asp estan dentro de la carpeta "newfile" y el error que me tira es el siguiente:
Persits.Upload.1 error '800a0005'
The system cannot find the path specified.
/without_flash/newfile/Upload_new.asp, line 15
error de la line 15: Count= Upload.Save("d:/clients/misitio/carpetaftp/without_flash/newfile")
dios no me sale una :(