qazasdf 发表于 2009-7-17 17:52

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

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即可
作用 自动判断扩展名

js64216862 发表于 2009-7-17 18:19

挺有意思~双击一下就会把LINKDATA在两个文件名之间切换。。挺好玩。。

Me3 发表于 2011-2-4 09:17

谢谢啦，楼主人真好！
页: [1]
查看完整版本: 分享一个脚本 适合凉宫修改器 方便改繁体版贴图