vb如何实现打开 相对路径 的exe程序
来源:百度知道 编辑:UC知道 时间:2024/05/28 09:43:28
请问使用vb如何实现,
烂搜索的就免了吧,超级难的问题。
其实不难,
介绍两种打开文件的方式,这两种方式都是我在编程序中常用的,绝对可用
1.简单的方式(以资源管理器方式打开,但是会有讨厌的提示)
StrFileName=App.Path & "\abc\abc.exe"
Shell "EXPLORER.EXE /n," & StrFileName, vbNormalFocus
2.高效的方式(使用API,推荐使用)
StrFileName=App.Path & "\abc\abc.exe"
Call SubOpenFile(StrFileName,form1 )
其中form1是调用命令所用的窗体名,根据实际情况来写
请将下列内容复制到你的程序模块中,
那么你就可以使用上面语句打开你说的文件了
'注意在引用该FSO功能时先引用 Microsoft Scripting Runtime
Public ObjFso As New FileSystemObject
Declare Function shellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub SubOpenFile(ByVal FileSaveName As String, ByVal StrFrmName As Form)
'打开文件
'输入:sFileName 待打开