VB如何用SHELL函数再运行一个程序?

你是在Excel里用VBA编程的吧。

shell方法的一般用法是:shell

"程序的路径",[windowstyle]。关于[windowstyle]的类型你在VBA里用F1查一下。

示例:shell

"notepad.exe",1

(这里记事本用的是系统路径，所以不用写全路径)

注意:这个地方是程序的路径而不是文件的路径。如果是打开程序用shell是没有问题的。但是假如你想打开一个非Excel的文件，比如有一个存在C盘上的ppt文件叫My_ppt.ppt，用shell

"c:\test.ppt",1，肯定出错。

要用shell打开其他类型的文件，在shell里用cmd这个命令解释工具。

具体语法是:shell

"cmd

/c

c:\My_ppt.ppt",1

(/c绝对不能少，不然看不到效果，至于原因去cmd下help一下)。

private sub cmd1_click()

dim x as string

x=shell("C:\WINDOWS\system32\mspaint.exe",1)

end sub

private sub cmd2_click()

dim y as string

y=shell("H:\Office 2003\Office12\winword.exe",1)

end sub

vb中调用SHELL用法

一. 调用系统“创建快捷方式”向导

是否为VB不支持创建快捷方式而于着急呢？虽然 您可以调用vb5stkit．Dll中的fCreateShellLink函 数，但它是为安装程序设计的，快捷方式的默认路径 总是从当前用户的“＼Start Menu＼Programs”开始，也 就是说，如果您的Windows95装在C盘上，您无法通过 fCreateShellLink函数把快捷方式创建到D盘上去。

现在，给大家介绍一种极为方便、巧妙的方法： 用Shell语句调用系统“创建快捷方式”向导。

新建一个项目，在窗体上放一个按钮，双击此按 钮，加入以下代码：

Private Sub Command1_Click()

Open App.Path ＆ "\temp.lnk" For Output As #1

Close #1 '以上两句在程序所在目录建立一 个临时文件

Shell "Rundll32.exe AppWiz.Cpl，NewLinkHere

"＆ App.Path ＆ "\temp.lnk"

End Sub

（注意：Shell语句中NewLinkHere后面跟着一个 空格才是引号，否则将出错。）

运行程序，按一下命令按钮，怎么样？“创建快 捷方式”向导出现了，如果创建成功，快捷方式将取 代临时文件temp.lnk的位置，如果选取消，temp.lnk 也会自动消失。当然，您可以在硬盘的任意位置建立 temp.lnk。好，现在又可以为您的程序增添一项新功 能了。Enjoy！

二. Rundll32.exe的用途

我们知道，用Shell语句只能调用可执行文件，即 exe、com、bat和pif文件，有时我们想要调用其他一 些系统功能该怎么办呢？此时，Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这 些用法，也许会给您带来一点惊喜。

1．要打开设置系统时间的控制面板文件 （Timedate.cpl),只需运行如下代码：

Shell "Rundll32.exe

Shell32.dll,Control_RunDLL Timedate.cpl"

至于打开其他控制面板文件，相信您一定能够举 一反三，尝试一下，换个文件名就成了。

2．要运行某一快捷方式（*.lnk）则可以用以下 代码：

She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X代表要运行的文件，包括 路径，下同。

3. 也可以这样写来打开ActiveMovie控制：

Shell "RUNDLL32.EXE amovie.ocx，Rundll",1

而用Shell "RUNDLL32.EXE amovie.ocx，Rundll /play X",1 将直接播放媒体文件。

4. Shell "rundll32.exe desk.cpl，InstallScreenSaver X”当然是安装屏幕保 护啦，如果你写了一个屏幕保护程序，那么可以在安 装程序中写上它，而不一定要装到system目录下。顺 便提一下，VB不是自捞一个“Application Setup Wizard”么？它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢，好好把它研究一下。 你完全能做出富有个性的安装程序来。

5.按住shift键，右击某一文件，菜单中会出现 “打开方式”选项，这也许已不是什么秘密。但现在， 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。

6. 甚至能用这样一句来打印文件（包括HTML所 支持的所有文本与图像格式):

Shell "rundll32.exe MSHTML.DLL，PrintHTML X”, 1

---