;=================================================
FileSelectFolder,SD,*D:
Loop Files, %SD%\*.*
{
if !FileExist(A_LoopFileFullPath)
Continue
SplitPath,A_LoopFileFullPath,name
RegExMatch(name,"\d{5}_(\d{8})",newname )
FileCreateDir,%SD%\%newname1%
FileMove,%SD%\*%newname1%*,%SD%\%newname1%
}
;=================================================
AutoHotKey v1.1版
https://autohotkey.com/download/ahk-install.exe
安裝好AutoHotKey，分隔線中間複製另存成"檔名隨便取.ahk"(編碼選UTF-8 with BOM)
執行後會讓你選資料夾，選好按確定，大概瞬間就完成了。