;=================================================
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)
执行后会让你选资料夹，选好按确定，大概瞬间就完成了。