Bueno, tuve un tiempecito libre y ahí esta el código, ¿qué pero le pones a este?
Código ASP:
Ver original<html>
<body>
<table border="1">
<%
vPath = Server.MapPath("/Sitios/MisPruebas/Rename/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(vPath)
For Each Subfolder in folder.Subfolders
%> <tr><td colspan="2"><%=Subfolder%><%
ContenidoDelFolder Subfolder
Next
%>
</body>
</html>
<%
Sub ContenidoDelFolder(Subfolder)
vPathTmp = Subfolder & "\"
For Each file in Subfolder.Files
%> <tr><td> <td><%=file.Name%><%
fso.MoveFile vPathTmp & file.Name, vPathTmp & "nuevoNombre_" & file.Name
Next
End Sub
%>