如何在文件名末尾添加更多细节的文件夹中重命名文件名

Question

原文件名是：亚太地区Boss_Apr2015

我想更改文件名：亚太地区Boss_GBSOL_YYYYMMDD

而且还删除空间在之间。我不能写任何代码

Answer 1

Dim suffix As String, prefix As String, strRest As String 
Dim strMiddle As String, ar() As String 

suffix = format(Date,"yyyy") & format(date,"mm") & format(date,"dd") 
ar = split(original," ") 
prefix = ar(lbound(ar)) 
strRest = ar(ubound(ar)) 
ar = split(strRest,"_") 
strMiddle = ar(LBound(ar)) 
Result = prefix & strMiddle & suffix