Rename File in VBA

[Joe4]

I have some VBA where I have to take a file named with a ".prn" extension and change the name to a ".txt" extension.

Can anyone give me that code?

Thanks.

 

[Barrie Davidson]

How about?

Dim OldName As String, NewName As String

OldName = Application.GetOpenFilename("Text (*.prn),*.prn")
NewName = Left(OldName, Len(OldName) - 3) & "txt"

Name OldName As NewName    ' Rename file.

Best regards,

 

[Joe4]

Barrie,

Thanks! That is exactly what I needed. I tried "REN" and "RENAME", but didn't realize that the name of the function I needed was simply "NAME".

 

[Barrie Davidson]

You're most welcome - it's not often I get to provide advice to a fellow MVP. :wink:

 

[Joe4]

That is how I got to be an MVP in the first place, by learning from other MVPs.

I may be an MVP now, but the learning never stops!

 

[plucier]

Is there an equivalently easy way to copy or delete files through VBA? I came to this message board specifically looking for this exact same answer (the rename), but I haven't seen anything this straightforward for copying files. I found a site that explained how to do it by using a function embedded in the kernel32.dll, but there must be an easier way, right?


Thanks!

 

[Joe4]

To copy, use the "CopyFile" Method (look at "CopyFile Method in Excel VBA help). Seanmb15 gives a nice example here:
http://www.mrexcel.com/board2/viewtopic.php?t=93857

To delete files, use "Kill" (Kill filename)

 

[plucier]

Outstanding! Thanks for the quick response! Really appreciate the help.