急VB打开一个文件~！代码。

来源：百度知道 编辑：UC知道 时间：2024/06/30 03:05:10
比如我要VB编一个软件。点确定那个文件自动打开。
E:\清理软件\360专杀\SuperKiller.exe
这个文件。代码怎么写详细的。本人不懂。
但是要动态的。就是说。
如果我那给别人下载那个人把文件放到D盘那让就打不开了吧。
代码要可以打开的。不管放到那里都可以打开的。
谢谢麻烦各位了。

建一个Command1。只要文件名是这个，不管你放到什么地方，都能打开。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Const MAX_PATH = 260
Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long

Private Sub Command1_Click()
Dim s As String * MAX_PATH
GetFullPathName "SuperKiller.exe", MAX_PATH, s, 0
Shell s, vbNormalFocus
End Sub

这个需要把EXE以资源形式放入程序中,运行时释放出来.....

其实,还不如直接shell然后把两文件放一起打RAR.....

- -!

PS:VB在资源文件上,比VC差了一个档次的感觉.

楼上说得对啊,vb程序和superkiller放到同文件夹,就可以了,然后直接shell调用文件名就行,不用路径,可以rar打包,也可以做成个安装包..vb6.0企业版有这个安装功能

楼上的太牛了，怎么多代码怎么写的