duda con asp

[gracipr]

ola de nuevo a ver si dejandoos un trozo de mi codigo me podeis ayudar, de verdad k es muy importante y me urge un pokito

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