Renombrar todos los archivos de una carpeta

[Myakire]

La verdad es que yo cuando algo muy simple no me sale después de varios intentos, lo borro y lo vuelvo a hacer.

En tu caso, yo no leí tu código para no tratar de arreglarlo, y es que a veces eso puede tomar más tiempo que hacerlo de nuevo. Aquí tienes lo que ocupas según tu primer mensaje:

Código ASP:

<&#37;
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.MapPath("/Sitios/MisPruebas/Rename/")) 
Set files = folder.Files '
 
Response.write ("ANTES<br>")
For Each file in files
    Response.write (file.Name & ", size=" & file.size\1024 & "<br>")
Next
 
For Each file in files
    fso.MoveFile Server.MapPath("/Sitios/MisPruebas/Rename/") & "\" & file.Name, Server.MapPath("/Sitios/MisPruebas/Rename/") & "\NewName_" & file.Name 
Next
 
Response.write ("DESPUES<br>")
For Each file in files
    Response.write (file.Name & ", size=" & file.size\1024 & "<br>")
Next
 
Set files = nothing
Set folder = nothing
Set fso = nothing
%>
 

Saludos