分享一个脚本 适合凉宫修改器 方便改繁体版贴图

qazasdf

Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("LINKDATA.BIN")) Then

      msg = "游戏状态"

        FSO.MoveFile "LINKDATA.BIN","LINKDATA_t.BIN"
        FSO.MoveFile "LINKDATA.IDX","LINKDATA_t.IDX"

Else
      msg = "贴图状态"

        FSO.MoveFile "LINKDATA_t.BIN","LINKDATA.BIN"
        FSO.MoveFile "LINKDATA_t.IDX","LINKDATA.IDX"

        End If

MsgBox(msg)

Set obj = Nothing
============================================================

拷贝到一个文本文件...后缀 改成 VBS即可
作用 自动判断扩展名