VB6.0 为批量字体改名

　　　从网上下载了一个字符包，解压以后查看，发现文件名是这种形式：0120_XXXXXX_GBK.ttf，看上去很不雅观。我想改成　XXXXXX简体.ttf　这种形式，但字体有300多个，手动修改太浪费时间，所以编写了一个批量修改程序，一键搞定。主要用到的函数和语句：Mid语句、Name语句、InStr函数、InStrRev函数、Replace函数

　　　下面是我测试时用的程序。虽然每次只能改一个，但只要把程序稍微修改一下，就可以变成按照你的设定批量修改程序名的改名程序。

'*************************************************************************
'**模 块 名：为程序改名
'**说    明：蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰－魔灵 | 郭卫－icecept
'**创 建 人：浴火凤凰-郭卫
'**日    期：2015年10月19日  12:36:46
'**修 改 人：浴火凤凰-郭卫
'**日    期：
'**描    述：QQ：493405998 | 微信\旺旺：icecept
'**版    本：V1.0.0 | http://blog.sina.com.cn/icecept
'*************************************************************************
Option Explicit

Sub Main()

　　Dim ss As String, zz As String

　　Dim before   As Integer

Dim behide   As Integer

ss = Command

before = InStr(ss, "_")

MsgBox before

If before <> 0 Then

zz = Mid$(ss, before + 1)

MsgBox zz

End If

behide = InStrRev(zz, "_")

MsgBox behide

If behide <> 0 Then

Mid$(zz, behide, 4) = "简体" & Space$(2)

zz = Replace$(zz, Space$(1), "")

MsgBox zz

End If

Name ss As zz

End Sub