云南普洱市妇科医院:VB高手快进!

如果是刻盘,可以用记事本建一个 AUTORUN.INF 文件在根目录下
内容为:
[AUTORUN]
OPEN=autorun.exe ;这是自动运行的程序,可以是其它文件名(在根目录下)
ICON=aaaaa.ico ;这是光盘的图标

'打开文件和目录的代码
'在窗体上放一个按钮加入下列代码能打开文件和目录
'注意千万不能修改记事本中的内容，这是操作系统的加载参数，如果随意改动可能造成无法开机
Private Sub Command1_Click()
'用SHELL函数打开应用程序格式 shell "应用程序名称(路径) 要打开的文件名称(路径)",打开应用程序的模式
Shell "c:\windows\system32\notepad.exe c:\boot.ini", vbNormalFocus
'用SHELL函数也可实现打开目录 其中用了系统程序资源管理器EXPLORER.EXE
Shell "explorer.exe c:\", vbNormalFocus
End Sub

首先自动运行你会做吧.
建一个autorun.inf 文本文件
[AUTORUN]
OPEN=autorun.exe ;自动运行
ICON=aaaaa.ico ;光盘图标

要刻在光盘的根目录下

然后你的界面自己设计. Commandbutton_Click() 里
Dim sAppPath as String
sAppPath = App.Path
If right(sAppPath,1) <> \"\\\" then sAppPath = sAppPath & \"\\\"
Shell \"explorer.exe \" & sAppPath & \"文件夹名\"
End Sub

就可以啦

这个很简单的呀。。。
用ShellExecute函数不就行了。。。

用Shell 函数就可以了