File Extension rename macro

[Fyr]

I am in need of help with a macro.
What I am trying to do is rename all files in directory C:\S30\TR\ with the extension of .D01 to .CSV.

I know the macro below is not right, wrote something to get started.

Dim strSourceFile As String
Dim strSourceDirectory As String
strSourceDirectory = "C:\S30\TR\"
strSourceFile = Dir(strSourceDirectory)
Do While strSourceFile <> ""
    strSourceFile = Replace$(strSourceFile, ".D01", ".CSV")
Loop

Thanks for taking a look!!

 

[AlphaFrog]

    Dim strSourceFile As String
    Dim strSourceDirectory As String
    Dim counter As Long
    
    strSourceDirectory = "C:\S30\TR\"
        
    strSourceFile = Dir(strSourceDirectory & "*.D01")
    
    Do While strSourceFile <> ""
        Name strSourceDirectory & strSourceFile As strSourceDirectory & Replace$(strSourceFile, ".D01", ".CSV")
        counter = counter + 1
        strSourceFile = Dir()
    Loop
    
    MsgBox counter & " files renamed.", , "Rename Files Complete"

 

[Fyr]

Thank you AlphaFrog, that did the trick!!