creo que esta es una solucion lo unico que me falta es cambiar el nombre al archivo.
Set MiFileObject=Server.CreateObject("Scripting.FileSy stemObject")
Set MiCarpeta=MiFileObject.GetFolder(server.mappath(". ./cs/imagenes"))'mypath
FOR EACH filefound In MiCarpeta.Files
if Right (filefound.name,3) = "jpg" then
fichero = filefound.name
response.Write("<br>"&filefound.name)
end if
NEXT
espero que me sirba a los demas como a mi.
