文件按指定顺序排序

大概只有国企才会遇到这样的问题吧：
做一个项目，涉及14个地市的设计文件需要审批，根据公司要求，需要给他们编号，这个编号还不能随意编排，必须要按照公司的排名顺序。如下：
南宁分册.rar
北海分册.rar
崇左分册.rar
来宾分册.rar
贺州分册.rar
防城港分册.rar
桂林分册.rar
柳州分册.rar
玉林分册.rar
百色分册.rar
贵港分册.rar
河池分册.rar
钦州分册.rar
梧州分册.rar

14个RAR文件，要求按照以下公司循序，添加序号：
南宁
桂林
柳州
玉林
百色
贵港
河池
钦州
梧州
北海
崇左
来宾
贺州
防城港
手工一个个加非常麻烦，为此在DOPUS下用VB做了一个脚本，实现自动编号:
Option Explicit
' main Rename entry point. The method is passed a GetNewNameData object for each file
Function OnGetNewName ( ByRef GetNewNameData )
     Dim item, Name ,Prefix
Set item = GetNewNameData.item
Prefix = 0
Name = left (item.name_stem,2)
select case Name
case "南宁"        Prefix ="1"
case "桂林"        Prefix ="2"
case "柳州"        Prefix ="3"
case "玉林"        Prefix ="4"
case "百色"        Prefix ="5"
case "贵港"        Prefix ="6"
case "河池"        Prefix ="7"
case "钦州"        Prefix ="8"
case "梧州"        Prefix ="9"
case "北海"        Prefix ="10"
case "崇左"        Prefix ="11"
case "来宾"        Prefix ="12"
case "贺州"        Prefix ="13"
case "防城"        Prefix ="14"
End select 
OnGetNewName = Prefix & "." & item.name_stem  &  item.ext
End Function