如何在文件名末尾添加更多細節的文件夾中重命名文件名

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