问一个shellexecute的问题。

[lyff8neo]

问一个shellexecute的问题。
我想指定一个程序打开某个文件，因为我这个程序是没有安装的绿色软件，不需要安装，因此我如何使用这个命令指定这个程序打开某个指定的文件。谢谢

[贝隆]

你可以使用Shell来打开EXE，也可以使用ShellExcute来打开EXE

Shell 函数


执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

语法

Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

部分 描述
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。


windowstyle 命名参数有以下这些值：

常量 值 描述
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。


说明

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。

注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

[贝隆]

Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。

[lyff8neo]

我这个程序在打开的时候还要打开这个指定的文件呢,请指教一下,谢谢

[lyff8neo]

打开指定的程序同时要加载指定的文件.

[Baby]

        Shell "NOTEPAD.EXE " & "c:\output.log", vbNormalFocus
        '用记事本打开文本文件

[BD6500K]

以后用shell, shelleexecute记得在路径前后加chr$(34)。
要不遇到文件名带逗号等特殊字符时，就遭殃了。

不多说了，坛子里有些人真是有病，善意的提醒他或者公布些东西，狗急跳墙的。

[lyff8neo]

谢谢各位,我是用程序调用ug(unigraphic), 并且自动载入所需的零件文件(prt)，但是一直没有调通，谢谢各位，
上面几种方法我试了，没有成功，~~

[Lactoferrin]

Shell "notepad.exe c:\a.txt"
就像这样

[嗷嗷叫的老马]

[Quote=引用 7 楼 bd6500k 的回复:]
以后用shell, shelleexecute记得在路径前后加chr$(34)。
要不遇到文件名带逗号等特殊字符时，就遭殃了。

不多说了，坛子里有些人真是有病，善意的提醒他或者公布些东西，狗急跳墙的。
[/Quote]
习惯了就好了,无视之即可,坏了自己心情是没必要的