用shell语句打开，具体代码怎么写？

谢谢大家

Dim str As String
str = "D:\pdfPlayer\FoxitReader.exe" '此为pdf阅读器

Shell str & " D:\ADO.pdf" '注意D:前面有空格..

如果我用 adobe reader打开
应该怎么写？

而且打开的是vb根目录下的一个pdf文件

一样.

这样：
Private Sub Command1_Click()
Dim path As String
'下面这句用于取得程序所在的路径，为什么要这样写：因为如果程序放在磁盘的根目录，那么用app.path取得的就是类似"c:\"这样的结果，但是如果它不是放在根目录，那么取得的就是例如(程序放在c盘下的ceshi文件夹中)"c:\ceshi",是不是少了一个"\"呢？
If Right(App.path, 1) <> "\" Then
path = App.path & "\"
Else
path = App.path
End If
Shell path & "文件名.pdf", vbNormalFocus
'用什么打开。这取决于你的系统中设置的pdf文件默认的打开方式。如果你设置的默认打开方式是adobe reader,那么它就会被adobe reader打开。
End Sub

不知道楼上..是否测试过你的代码?..
不知道你是否清楚Shell的原理?...

Shell只能执行exe,bat,com或pif文件...
而不能直接执行非以上文件扩展名的文件...

而看我的代码...
使用了一个pdf.exe 可执行文件..再加一个pdf文件...这个pdf文件为pdf.exe阅读器的参数...
...
建议楼上..看看Shell的原理..

假如5楼的..用win32api ShellExecute就可以实现你所说的使用默认的pdf阅读器来打开..

我用以下语句打开了一个文件 是用tecplot打开的

Shell "tecplot """ & App.Path & "\TECPLOT""", vbNormalFocus

如果想模仿这句代码 应该怎么写？

另外，str为pdf的阅读器所在的路径，但是我这个程序是要给别人用的，当生成exe之后，每次用到别人的机器上是不是都要改呢？

那直接用ShellExecute就行了..它会调用系统默认的pdf阅读器来打开.