Rename Files (slightly odd one though) 1

[ncotton]

Hey guys, looking for some assistance.

This is the scene.

User had files called file1.txt etc and wanted them to be renamed to file1.abc, however when using the command line to change all the files there was an error in the syntax, and now they have a folder full of files called file1abc.txt.

How can I go back and delete the last 7 characters (incorrect addition + . + original ext) and replace it with the correct new extention.

Thanks
NC

 

[taupirho]

More of a DOS question so here is a dos solution

Remove the echo on the second-to-last line when you're happy its doing what it should be

@echo off
for %%i in (file*.txt) do (set fname=%%i) & call :rename
goto :eof
:rename
echo ren %fname% %fname:~0,5%.abc
goto :eof



In order to understand recursion, you must first understand recursion.

 

[VbsEdit]

Dim fso
Set fso = CreateObject("Scripting.Filesystemobject")

For Each file In fso.GetFolder("c:\temp\myfolder").Files

  newpath = file.Path
  newpath = Left(newpath,Len(newpath)-4) 'remove last 4 characters
  newpath = Left(newpath,Len(newpath)-3) & "." & Right(newpath,3) 'insert a dot character before the extension
  
  fso.MoveFile file.path,newpath
Next

Need a good VBScript editor and debugger? Get VbsEdit

 

[Geates]

Alternatively,

set objFSO = CreateObject("Scripting.FileSystemObject")

for each objFile in objFSO.GetFolder("c:\temp\myfolder").Files
  objFile.Name = replace(objFile.Name, "abc", "")
next

-Geates