扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
打开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”
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网