Citar
Si lo hicieses en VBS sería más fácil.
En este caso, para lo que quiere hacer, realmente no se si sea la mejor opciòn, creo que me quedo con batch (solo en este caso XD)
Pero como ejemplo....
Código
set objfso = createobject("scripting.filesystemobject") set carpeta = objfso.getfolder("D:\Prueba") set archivos = carpeta.files for each f in archivos objfso.movefile carpeta.path & "\" & f.name,carpeta.path & "\" & replace(f.name,".ctk","") next msgbox "Terminado"
Citar
D:\Prueba
Sería la ruta completa a la carpeta donde están los archivos Saludos