VB 调用其它程序

VB 调用其它程序



此程序目录 = App.Path
If Right$(此程序目录, 1) = "\" Then 此程序目录 = Mid(此程序目录, 1, Len(App.Path) - 1)
此程序文件名 = App.EXEName & ".exe"
此程序准确途径 = 此程序目录 & "\" & 此程序文件名

Text1 = 此程序准确途径

'◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇
j="C:\UG中文途径打开方式.exe"
Shell j       '打开文件、文件夹，调用程序等
'◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇


VB 调用其它程序

Shell ("notepad")              '打开无标题记事本  
Shell "explorer.exe D:\"        '打开文件、文件夹’打开网页


Call Shell(App.Path & "\123.exe", vbNormalFocus)'调用exe
Call Shell(App.Path & "\123.bat", vbNormalFocus)'调用批处理

【App.Path 指此程序目】【此程序无论在那都行】
如：App.Path & "\123.txt"

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

'VB 调用其它程序 列
Private Sub Command1_Click()
fff=(App.Path & "\123.bat"

If Dir(strFileName) = "" Then GoTo ff '【判断文件不存在 就跳到ff:】
Call Shell(fff, vbNormalFocus)        '调用批处理

ff:
End
End Sub

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'注意！
【VB调用 程序】 调用的程序余VB程序 是同时进行的

【UG里GRIP调用 程序】 会等带 调用的程序 结束后在 执行

【VB调用 程序】 和 【UG里GRIP调用 程序】 恰恰相反




_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/