Here's a start at least
Use this code to get you into the folder:
Code:
Sub ModifyMyFileNames
With Application.FileSearch
.NewSearch
.LookIn = "C:\test\"
If .Execute() > 0 Then
For variable = 1 to .FoundFiles.Count
'my actions
Next i
End If
End With
End Sub
That gets you into the folder. In the place of " 'my actions ", put something like this:
Code:
origName = .FoundFiles(i)
firstFive = LEFT(origName,5)
nextSix = MID(origName,7,6)
newName = firstFive & " " & nextSix
Unfortunately, I'm unable to test tht syntax for you right now. I believe you can use those formulas straight in the code like I have stated above. However, if you can't just put the .FoundFiles(i) in a cell somewhere and the 2 functions in other cells and then, pull the info back out to concatenate into your new filename (in other words, you can use the variable as a "middle man" or a cell as a "middle man").
The code just above makes the assumption that the format you gave:
was correct in length regarding where the underscores, the "_bst" and everything were. If that assumption is incorrect, then what I gave you will have to modified. If the naming format isn't consistent, those steps may require a different methodology.
HTH. Maybe it's, at worst, a pretty good start.