vbs版本的reg2bat.cmd无法在WIN7下使用

nbv

secowu大大曾经发过 vbs版本的 reg2bat.cmd ，在XP用了多年，现在换成WIN7后，就无法使用了，有谁能修改一下让它能在WIN7下使用啊？

原贴：http://bbs.wuyou.net/forum.php?m ... &highlight=reg2

slore

可能是OpenFile不支持吧。试下直接命令行输入
CScript.exe Reg2Bat.vbs /i:xxxx.reg

还有问题的话，最好上传下reg文件。

nbv

slore 发表于 2015-12-6 11:07
可能是OpenFile不支持吧。试下直接命令行输入
CScript.exe Reg2Bat.vbs /i:xxxx.reg

不是REG文件的问题，是无法启动VBS程序，提示错误，只有在WIN7下无法启动，不论是X86或X64，XP下使用就没有问题。

slore

nbv 发表于 2015-12-6 20:40
不是REG文件的问题，是无法启动VBS程序，提示错误，只有在WIN7下无法启动，不论是X86或X64，XP下使用就没 ...

就是选择文件函数的问题，XP的时候可以出现一个选择文件的对话框，WIN7下这个组件没有了，所以出错。但是命令行方式的话不调用这个控件的，是可以运行。


代替方法是把248行的OpenFile函数改成下面的弹出对话框。
Function OpenFile(IntDir,Fltr)
    Dim TempFile
    TempFile = InputBox("请选择" & Fltr & "文件:","Reg2Bat",IntDir)
    If IsEmpty(TempFile) Then
        OpenFile = ""
    Else
        OpenFile = TempFile
    End If
End Function

nbv

slore 发表于 2015-12-7 12:56
就是选择文件函数的问题，XP的时候可以出现一个选择文件的对话框，WIN7下这个组件没有了，所以出错。但是 ...

成功了，非常感谢！！！