UC知道VB 怎么调用可执行文件
来源：百度知道 编辑：UC知道 时间：2024/05/31 10:13:13
因为是生产线调用可执行文件，由作业员调取经常会出错，所以我想做一个VB界面，只要她们输入程式名称调用可执行文件。
我的具体做法是用一个文本框输入要调用的课执行文件名称，另外一个文本框输入调用可执行文件的版本。
但是当我用shell命令调用的时候，提示路径不对，直接在代码里面输入可执行文件路径后可调取。
请问，我应该怎么把文本框输入的名称赋给被调用的函数体呢？
请说详细点，问题采纳多加30分。
对了，可执行文件名字是由”数字+字母“组成。如650sba
根据各位提示，我做了修改，但还是不行，忘记说了，我的文件夹名字是与机种名字一样的，也是动态赋给的。
请帮忙看下代码错在什么地方？
Private Sub cmdok_Click()
'Dim RetVal
Dim Path As String
Dim modeldocument As String
Dim modelrun As String
modeldocument = "txtmodelname" & "txtmodelrev"
'Text1.Text = CStr(txtmodelname) & CStr(txtmodelrev)
'Text2.Text = CStr(modelrun)
Path = "C:\modeldocument\"
'RetVal = Shell("C:\modeldocument\modelrun &".EXE", 1) ' 完成Calculator。
'Shell App.Path & "/ABC/" & Text1.Text & ".exe", 1
Shell Path & "modelrun" & ".exe", 1
End Sub
Private Sub Form_Lo
我的具体做法是用一个文本框输入要调用的课执行文件名称，另外一个文本框输入调用可执行文件的版本。
但是当我用shell命令调用的时候，提示路径不对，直接在代码里面输入可执行文件路径后可调取。
请问，我应该怎么把文本框输入的名称赋给被调用的函数体呢？
请说详细点，问题采纳多加30分。
对了，可执行文件名字是由”数字+字母“组成。如650sba
根据各位提示，我做了修改，但还是不行，忘记说了，我的文件夹名字是与机种名字一样的，也是动态赋给的。
请帮忙看下代码错在什么地方？
Private Sub cmdok_Click()
'Dim RetVal
Dim Path As String
Dim modeldocument As String
Dim modelrun As String
modeldocument = "txtmodelname" & "txtmodelrev"
'Text1.Text = CStr(txtmodelname) & CStr(txtmodelrev)
'Text2.Text = CStr(modelrun)
Path = "C:\modeldocument\"
'RetVal = Shell("C:\modeldocument\modelrun &".EXE", 1) ' 完成Calculator。
'Shell App.Path & "/ABC/" & Text1.Text & ".exe", 1
Shell Path & "modelrun" & ".exe", 1
End Sub
Private Sub Form_Lo
dim Path as string
Path="C:\dddd\"'设置可执行文件的路径
'假设文本框输入的名称是:650sba
shell Path & text1.text & ".exe",1
将你需要调用的可执行程序放在你的 VB 程序的一个根目录中，例如ABC目录中，然后使用下面的语句即可：
Shell APP.Path & "/ABC/" & Text1.Text & ".exe",1
这样作的好处是管理比较方便，例如你的 VB 程序是在 C:/VB/ 目录中，你的可执行程序放在 C:/VB/ABC/ 目录中，假如你调用的是650sba.exe程序，那么你在Text1.Text中输入650sba时即可调用这个程序，在程序执行后的语句应该是：
Shell "C:/VB/ABC/650sba.exe",1
使用绝对路径即可，shell后面写出调用程序的完整路径。