¿Bat que borre 4 ultimos caracteres de los nombres de varios archivos?

[Novlucker]

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 (vb) [Seleccionar] Expandir

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"

D:\Prueba

Sería la ruta completa a la carpeta donde están los archivos 

Saludos

[seu230]

Hola the shadow muchas gracias por la ayuda pero no me esta funcionando, me sale "el sistema no puede hallar el archivo especificado" varias veces
Un saludo y gracias de nuevamente

q code estas tratando de usar???

El ultimo que pusistes aunque el penultimo tampoco me funciona
Un saludo

[seu230]

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 (vb) [Seleccionar] Expandir

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"

D:\Prueba

Sería la ruta completa a la carpeta donde están los archivos 

Saludos

Hola Novlucker si funciono aunque siempre me quedare con la duda de como seria con un .bat

Un saludo y mil gracias nuevamente

[carlitos.dll]

[modificado]

He dejado un nuevo code, que cumple mejor los objetivos, en este mismo post más adelante.

[The Shadow]

Hola the shadow muchas gracias por la ayuda pero no me esta funcionando, me sale "el sistema no puede hallar el archivo especificado" varias veces
Un saludo y gracias de nuevamente

q code estas tratando de usar???

El ultimo que pusistes aunque el penultimo tampoco me funciona
Un saludo

Ejecutaste el .bat en la misma carpeta donde estan los *.ctk.xls??? . . .

akabo de revisar, y no ay errores . . . ademas . . . tmb me funka perfecto. . .

Saludos!

[carlitos.dll]

Bueno, finalmente escribí un bat que renombrara quitando los últimos 4 caracteres del nombre aceptando archivos que incluyan nombres con espacios.

Código [Seleccionar] Expandir


:: CarlitoS.dll
:: Bat que borra 4 ultimos caracteres de los nombres de varios archivos aceptando archivos que incluyan nombres con espacios.
:: Ubicar este bat en la misma carpeta de los archivos a renombrar.

@echo off

set ext=xls
rem ext es la extension de los archivos sin anteponer punto.

set sacar=4
rem sacar es la cantidad de letras al final del nombre que quieres sacar.

for /f "tokens=*" %%f in ('dir /b /a *.%ext%') do call :lab %%f
exit

:lab
set original=
set original=%*
set newname=
call set newname=%%original:.%ext%=%%
call set newname=%%newname:~0,-%sacar%%%.%ext%
if "%newname%"==".%ext%" (goto :eof)
ren "%original%" "%newname%"
goto :eof



[seu230]

Hola the shadow muchas gracias por la ayuda pero no me esta funcionando, me sale "el sistema no puede hallar el archivo especificado" varias veces
Un saludo y gracias de nuevamente

q code estas tratando de usar???

El ultimo que pusistes aunque el penultimo tampoco me funciona
Un saludo

Ejecutaste el .bat en la misma carpeta donde estan los *.ctk.xls??? . . .

akabo de revisar, y no ay errores . . . ademas . . . tmb me funka perfecto. . .

Saludos!

Hola the shadow perdon por la demora en responder lo volvi a probar y ahora si me funciono de hecho ahora me funcionan todos e incluso se me ocurrio aprovechar que los ultimos 4 digitops son .ckt para eliminar la extension .xls y de esa forma la pc entendera que ahora la extenson es .ckt y ps ahora solo tengo que volver a cambiar de extension a .xls un saludo y gracias a todos por la ayuda