Is there a macro that can change all the files in a location to .csv files.
I am working on a macro that lets me open a file at a specific location it works, but I have to change the file type to .csv 1st. I was hoping the macro could do it for me.
Here is some of the code and the location of the need to be .csv files:

TheFile = "\\datawhse\root\LAW81\LAWSON\print\EHARSKEY"
    CreateObject("WScript.Shell").CurrentDirectory = TheFile
    
    TheFile = Application.GetOpenFilename("Excel Files (*.*), *.*", , "Select the file and choose open.")
    If TheFile = "False" Then
        Exit Sub
    End If
    Workbooks.Open Filename:=TheFile
So, I need code that will go to that path and change all files to .csv files before I go there with this string of code to open the desired files.
Thank you very much for your time and help.