Changing filenames in a folder

[Pawan]

Hello

have a folder with several files with different extensions. I want to
change exensions of ".cnf.xml" files to ".xls". I want to do this in excel
macro as I need to work on these files then. Is there any way to achieve this?

Thank you

Regards,
prm

 

[joel]

Change folder name as required.

Sub changeToXML()

Set fs = CreateObject("Scripting.FileSystemObject")

Folder = "c:\temp"

FName = Dir(Folder & "\" & "*.XML")
Do While FName <> ""
OldName = Folder & "\" & FName
'take old anem remove extension
NewName = Left(OldName, InStrRev(OldName, "."))
'add xls
NewName = NewName & "xls"

fs.MoveFile OlName, NewName

FName = Dir()
Loop

End Su

 

[Jacob Skaria]

Try the below

Sub Macro()
Dim strFile As String, strFolder As String
strFolder = "c:\"
strFile = Dir(strFolder & "*.cnf.xml", vbNormal)
Do While strFile <> ""
Name strFolder & strFile As strFolder & Replace(strFile, ".cnf.xml", ".xls")
strFile = Dir
Loop
End Sub

If this post helps click Yes

 

[Pawan]

Thanks Jacob.. It worked!

Try the below

Sub Macro()
Dim strFile As String, strFolder As String
strFolder = "c:\"
strFile = Dir(strFolder & "*.cnf.xml", vbNormal)
Do While strFile <> ""
Name strFolder & strFile As strFolder & Replace(strFile, ".cnf.xml", ".xls")
strFile = Dir
Loop
End Sub

If this post helps click Yes