dirs=FileNames["*",{"/Volumes/LIBRARY3/DataSpace-Library3-书法/二玄社__中国法书选（60套）"}]

RenameDirectory[#,FileNameJoin[{FileNameTake[#,{1,-2}],StringReplace[FileNameTake[#,-1],RegularExpression["\\d+.*(中国法书选)[_|\\s]*(\\d+)[_|\\s]*(.*)"]->"二玄社__中国法书选$2：$3"]}]]&/@dirs[[6;;]]

?RenameDirectory

FileNameJoin[{FileNameTake[#,{1,-2}],StringReplace[FileNameTake[#,-1],RegularExpression["\\d+.*(中国法书选)[_|\\s]*(\\d+)[_|\\s]*(.*)"]->"二玄社__中国法书选$2：$3"]}]&@dirs[[10]]