Error en Upload ASP

[OceanBorn]

a ver si entendi...

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save(path)
%>
<% = Count %> ficheros subidos.
<%
Dim FSO, Fich , NombreAnterior, NombreNuevo, path >>>creo una variable<<<
'Inicialización
NombreAnterior = imagen
NombreNuevo ="Nuevo.jpg"
path = server.MapPath(".") & "\" >>>le doy lo que representa<<<

' Instanciamos el objeto
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Asignamos el fichero a renombrar a la variable fich
Set Fich = FSO.GetFile(path & NombreAnterior)
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fich.Copy(path & NombreNuevo)
' finalmente borramos el fichero original
Call Fich.Delete()

Set Fich = Nothing
Set FSO = Nothing


%>
<%
Set Upload = Nothing
%>

No se si co nel punto me diste a entender que ponga d:/clients/argentina-hosting.com/jcl.com.ar/without_flash/newfile no lo hize, perdona mi ignorancia, pero asi como me digiste tira:

1 ficheros subidos.
Microsoft VBScript runtime error '800a0035'

File not found

/without_flash/newfile/Upload_new.asp, line 28

line 28: Set Fich = FSO.GetFile(path & NombreAnterior)