打开VB,建一个按钮,双击进去,写下面的代码:然后运行就可以了
创新互联长期为成百上千客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为涟水企业提供专业的网站建设、成都网站建设,涟水网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
创建批处理文件,用文件操作,分3部:1,打开:OPEN 2,写入:PRINT 3,关闭:CLOSE
然后用SHELL运行就可以了:
Private Sub Command1_Click()
Open "E:\test.bat" For Append As #1
Print #1, "@echo off"
Print #1, "echo This is just a test"
Print #1, "pause"
Close #1
x = Shell("E:\test.bat")
End Sub
shell函数是的作用是运行一个可执行程序,语法是:
Function Shell(PathName) As Double
"E:\test.bat"是文件路径名,因为这个函数要返回一个Double所以前面加了一个 X=
调用c:\1.bat,可以这样:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("cmd.exe /c call c:\1.bat", AppWinStyle.NormalFocus)
End Sub
在 Form_Load 写入
Dim cmd As String = Command()
cmd 就是传入的参数了。
就看你怎么利用了。
我觉得应该有两种解决方法
1:把patran的安装路径添加到系统环境变量的path属性下;
2:在你的批处理里面改为如下格式,patran完整路径(如c:\MSC.software\········patran.exe)+ "-sfp patran.ses",也就是下面这种情况试下“c:\MSC.software\········patran.exe -sfp patran.ses -b -ans yes”