Change File Extension In VBA

[jo15765]

I have a user selecting a file, and I need to change the file extension to .txt

I have tried

Dim fileName As String
Dim newName As String
Dim i As Integer

Debug.Print (Me.txtFileLocation)

Do While fileName <> ""
    i = InStrRev(fileName, ".")
    newName = Left(fileName, i -1) & ".txt"
Loop

Debug.Print newName

but this freezes my access and i never have the new filename printed

[Micron]

Based on that nothing should happen because fileName is "" . I suspect you left out pertinent code in your post.

[jo15765]

Based on that nothing should happen because fileName is "" . I suspect you left out pertinent code in your post.

haha, sorry

You are correct.

I set fileName = Me.Me.txtFileLocation

above the loop

[Welshgasman]

Why don't you just rename the file?

https://www.google.com/search?q=rena...t=gws-wiz-serp

[Micron]

It seems you don't want to reveal too much. It's probably some other portion that is at fault because even if the variable holds a valid value, that code does nothing.

[moke123]

Use FSO. You can take advantage of fso.GetBaseName, fso.getFileExtension, fso.BuildPath, etc.

[jo15765]

not trying to be cryptic at all - this is the code I have.

I've used FSO to change a file name, or create a directory but i'm struggling on how to change a file extension :/

[moke123]

Fpath = "C:\Users\Sam\Desktop\tinkering\Files\SomeFile.accdb"

Debug.Print Replace(Fpath, fso.GetExtensionName(Fpath), "txt")

result:  C:\Users\Sam\Desktop\tinkering\Files\SomeFile.txt

[jo15765]

Fpath = "C:\Users\Sam\Desktop\tinkering\Files\SomeFile.accdb"

Debug.Print Replace(Fpath, fso.GetExtensionName(Fpath), "txt")

result:  C:\Users\Sam\Desktop\tinkering\Files\SomeFile.txt

What am I doing wrong here?

    Dim fileName As String
    Dim newName As String
    Dim fso As Object
    
    Set fso = CreateObject("scripting.FileSystemObject")
    
    Debug.Print (Me.txtFileLocation)
    fileName = Me.txtFileLocation
    
    newName = Replace(fileName, fso.GetExtension(fileName), "txt")
    
    Debug.Print newName
    
    Set fso = Nothing

but I get an error of

Object doesn't support this property or method

[moke123]

Your using fso.GetExtension but it should be fso.GetExtensionName

Use early binding until it works and then modify it to late binding. Less mistakes that way.

[jo15765]

Your using fso.GetExtension but it should be fso.GetExtensionName

Use early binding until it works and then modify it to late binding. Less mistakes that way.

that did it - thank you