重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在 Form_Load 写入
创新互联公司 - 达州服务器托管,四川服务器租用,成都服务器租用,四川网通托管,绵阳服务器托管,德阳服务器托管,遂宁服务器托管,绵阳服务器托管,四川云主机,成都云主机,西南云主机,达州服务器托管,西南服务器托管,四川/成都大带宽,成都机柜租用,四川老牌IDC服务商
Dim cmd As String = Command()
cmd 就是传入的参数了。
就看你怎么利用了。
你要这样子写
a = Shell(App.Path "\data\A.bat", vbNormalFocus)
忘记说了,补充一下
还有说明一下,当你用(App.Path 来指定路径的时候,在VB6里按F5运行是会找不到此文件的。你要把程序打包成exe后才有效果的,确保 你的exe文件和Data在一个目录中。!
因为你按F5运行后你的当前应用程序路径是你的VB的安装路径,而不是你的 当前工程文件所保存的路径。。。。。
我觉得应该有两种解决方法
1:把patran的安装路径添加到系统环境变量的path属性下;
2:在你的批处理里面改为如下格式,patran完整路径(如c:\MSC.software\········patran.exe)+ "-sfp patran.ses",也就是下面这种情况试下“c:\MSC.software\········patran.exe -sfp patran.ses -b -ans yes”