renombrar archivos segun posiciones de array

[gracipr]

tengo una carpeta con fotos en el servidor, las recorro y las almaceno en un array, pretendo borrar un archivo seleccionado x el cliente, y k los k estan a continuacion se renombren desde esa posicion, ya k cada foto esta almacenada con un numero,ej: 1.jpg

te dejo mi codigo a ver si me podeis ayudar
carpeta = "archivos/obras"
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set folder = FSO.getfolder(Server.MapPath("/" & carpeta &"/"& idreg))
set filecollection = folder.files
dim i
For Each file in filecollection
Redim Preserve nombre(i)
nom = file.Name
nombre(i) = nom
i = i + 1
next
for i=0 to ubound(nombre)
if narchivo = nombre(i) then
archivo = "/"& carpeta &"/"& idreg &"/"& narchivo
set fich = FSO.getfile(server.mappath(archivo))
fich.delete
end if
next