Question

Vb中怎么把一个bat文件写到一个路径并运行

Vb中怎么把一个bat文件写到一个路径并运行，vb直接写源码的方法也可以 只要可以用都给分 下面是bat源码
Private Sub dk_Click()
Dim x
Open "D:\梦三国\New\dk.bat" For Append As #1
Print #1, "@echo off"
Print #1, "start MSango.bin "
Print #1, "exit"

Close #1
Shell ("D:\梦三国\New\dk.bat")
End Sub

运行了这个bat以后 老是说找不到MSango.bin,意思就是不是在那个文件夹运行的，必须在D:\梦三国\New\这个文件夹运行，请问这个在vb里面到底要这么写，还有就是有没有大师一共一下vb找程序路径的办法，就像E里面的取文本注册项那样一样的命令，求大师解答，一定给分

Answer 1

找不到MSango.bin,是你的dk.bat中代码提示的错误，不是vb的问题。
你的dk.bat中代码 start MSango.bin。这个文件在D:\梦三国\New\不存在。

Answer 2

试试以下代码：
Private Sub dk_Click()
Dim x
Open "D:\梦三国\New\dk.bat" For Append As #1
Print #1, "D:\"
Print #1, "CD D:\梦三国\NEW\"
Print #1, "@echo off"
Print #1, "start MSango.bin "
Print #1, "exit"

Close #1
Shell ("D:\梦三国\New\dk.bat")
End Sub