Sabes de freeASPUpload ?

[ACX_POISON]

Gracias X leerlo

Amigos como dice el titulo si sabes de freeASPUpload, tengo una pregunta.
¿Como le cambio el nombre a los archivos antes de subirlos al servidor?
Gracias--->

[JuanRAPerez]

una vez esta arriba usa FSO para renombrar

suerte

[ACX_POISON]

Gracias X responder

Mira para eso estoy haciendo esta funcion:

function Renombra_archivo(archivo,nuev_nombre)
dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(archivo) then
response.Write(archiv&" Existe<br>")
'aqui falta para renombrar
end if
Set FSO = Nothing

end function

como te daras cuenta me falta justo la parte en que renombro el archivo.
¿Me podrian Ayudar?

Gracias--->

[JuanRAPerez]

estoy de vago (vacaciones)

lee este post
http://www.forosdelweb.com/f15/probl...imagen-601324/
}suerte

[ACX_POISON]

Nuevamente Gracias X responder
Lo he estado Probando el archivo es copiado con el nuevo nombre, pero me da un error al intentar borrar el antiguo

te dejo aqui la funcion que se encarga de aquello haber si puedes ayudarme

function Renombra_archivo(original,nuevo)
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject ")
'realizamos la copia del archivo
inicial=original
nuevo_arch=server.mappath("../visor/imagenes/"&nuevo)
response.Write("<br>Original: "&original&"<br>Nuevo: "&nuevo_arch&"<br>")
fs.CopyFile inicial,nuevo_arch
'hasta aqui todo bien es en la siguiente linea en que me da el error
'al mostrar la variable inicial en pantalla me muestra la ruta del archivo

fs.delete inicial
set fs=nothing
end function

[JuanRAPerez]

y el error que te envía cual es?

[ACX_POISON]

Es este :

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01B6)
El objeto no acepta esta propiedad o método: 'delete'
/renombra_arch/ren_arch1.asp, línea 58

la linea 58 es la de ->fs.delete inicial

[ACX_POISON]

Problema resuelto

reemplace la linea por esto:

fs.DeleteFile inicial

y funciona perfectamente..