ASP - renombrar archivos

Hola a todos, a ver si alguien me puede ayudar, es un pokito urgente.

resulta k tengo una aplicacion en asp para subir, ordenar, borrar imagenes para una web. cada imagen k subo se guarda con un numero, ejemplo 1.jpg. mi duda es cuando yo borro una foto ejemplo 2.jpg las k vienen despues se renombran es decir la 3.jpg pasa a ser la dos y asi con todas las k ubiera, pero estoy un poco atascada y no se como acerlo. os dejo parte de mi codigo a ver si podeis ayudarme

Este solo borra el archivo indicado:
'carpeta = "archivos/obras"
'set FSO = Server.CreateObject("Scripting.FileSystemObject")
'set folder = FSO.getfolder(Server.MapPath("/" & carpeta &"/"& idreg))
'set filecollection = folder.files
'for each file in filecollection
' nombre = file.Name
' if narchivo = nombre then
' archivo = "/"& carpeta &"/"& idreg &"/"& narchivo
' set fich = FSO.getfile(server.mappath(archivo))
' fich.delete
' end if
'**** este lista los archivos todos de la carpeta, borra el k sobra, pero aora deberia
'renombrar los siguientes, con la posicion k keda libre, y asi sucesivamente con los siguientes k hubiera****
'next
'Set FSO = Nothing
'Set Fich = Nothing

y este borra el archivo indicado y renombra solo un archivo de los k ay a seguir

'*********************************Codigo k modifica solo el archivo siguiente**********************************
carpeta = "dbc/A_D/cal/html/websolmod/archivos/obras"
cad = split(narchivo,".")
numeAnt = cad(0) + 1
numeNew = cad(0)
NombreAnterior = numeAnt&".jpg"
NombreNuevo = numeNew&".jpg"
archivo = "/"& carpeta &"/"& idreg &"/"& narchivo
if archivo <> "" then
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set Fich = FSO.Getfile (Server.MapPath(archivo))
Fich.Delete
End if

Set FSO2 = Server.CreateObject("Scripting.FileSystemObject")

if FSO2.FileExists(Server.MapPath("/"& carpeta &"/"& idreg &"/" & NombreAnterior)) = True then
Set Fich2 = FSO2.GetFile(Server.MapPath("/"& carpeta &"/"& idreg &"/" & NombreAnterior))
Call Fich2.Copy(Server.MapPath("/"& carpeta &"/"& idreg &"/"& NombreNuevo))
Call Fich2.Delete()
End if

Set Fich2 = Nothing
Set FSO2 = Nothing

Mandame tus archovos comprimidos para checarlos
y probar aver si te soluciono tu problema