ayuda con codigo

[gracipr]

hola aber si alguien me puede ayudar con un ejemplo de codigo para la siguiente estructura, k toi un poco perdida.

recorrer carpeta
Array nombres
verificar vacio
renombrar por Array nombres
fin

gracias

[Myakire]

Código:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
PathInicial = Server.MapPath(".") & "\PolizaTxt\"
NomFolder = objFSO.BuildPath(PathInicial, "TuCarpetaDeTrabajo")
Set objFolder = objFSO.GetFolder(NomFolder)
Set objFolderRoot = objFSO.GetFolder(PathInicial)
Set Subcarpetas = objFolderRoot.SubFolders

For Each SubCarpeta in Subcarpetas
'Lo que quieras hacer con las carpetas
Next

For Each objItem In objFolder.Files
'Lo que quieras hacer con los archivos
Next

Basicamente debes buscar en Internet algún tutorial sobre FSO (File System Object)

Saludos

[gracipr]

kiero renombrar archivos, es decir, el usuario borra un archivo llamado 2.jpg y los k ay despues 3.jpg y 4.jpg(x ejemplo puede aber mas o ninguno) pasen a ser 2.jpg y 3.jpg, y estoy un poco perdida con el codigo si alguien me pudiera pasar codigo de ejemplo. yo tengo algo echo pero solo cambia el nombre del archivo siguiente al k se borra,y si ay mas los deja igual ahi mi problema, dejo mi codigo a ver si alguien me puede ayudar.
if Request.QueryString("a") <> "undefined" then
narchivo = Request.QueryString("a")
else
response.redirect("index.asp")
End if

if Request.QueryString("num") <> "undefined" then
idreg = Request.QueryString("num")
else
response.redirect("index.asp")
End if

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

es un pokito urgente, gracias

[gracipr]

a ver si alguien me puede ayudar con el problema k plantee al principio de este mensaje