Help to rename files

[Hilton]

Is there a way I can rename files:

AFT.11.DAT
AFT.12.DAT
AFT.21.DAT
AFT.22.DAT
(not the 2 "dots")

to

SEG11.DAT
SEG12.DAT
SEG21.DAT
SEG22.DAT

Thanks
Hilton

 

[Bob Phillips]

Why don't you just change the names? What is the issue here?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Assume source data in A1 down
In B1: =SUBSTITUTE(A1,"AFT.","SEG")
Copy down

 

[Don Guillett]

Modify this to rename instead of move. Something like this. TEST
oldname = "C:\x\" & FN
newname = "C:\y\" & "Sig"& right(FN,len(fn)-3)



Sub Movefiles()

Application.ScreenUpdating = False
Dim FN As String
FileLocation = "c:\x\*.xls"
FN = Dir(FileLocation)
Do Until FN = ""

If Mid(FN, 4, 1) = "_" Then
oldname = "C:\x\" & FN
newname = "C:\y\" & FN
Name oldname As newname
End If
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub

 

[Guest]

=REPLACE(A1,1,4,"SEG")

 

[Max]

Don Guillett

Microsoft MVP Excel

Congratulations, Don ! cheers.

---

 

[Don Guillett]

Glad I understood what you wanted.

 

[Max]

Glad I understood what you wanted.

Nope, I don't think so.
Only the OP, Hilton, can answer that.

---