如何在VB6.0中使用Shell语句打开SolidWorks装配体文件

试过  不行

没有关联文件？你能双击打开这个文件吗？如果不能就说明你没有设置关联
或者试试这个API：
ShellExecute '打开关联文件

直接双击文件是可以打开的  我是新手  所以对关联文件之类的不了解
我装配体文件的路径是存在数据库的   比如是Adodc2.Recordset.Fields("装配体") & ".SLDASM"
而SolidWorks文件路径是c:\SolidWorks.EXE    那么用shell或者是shellexecute应该怎么编写代码
谢谢你的耐心解答~

如果要打开一个文件，首先要知道打开这个文件的程序的路径，然后再是文件路径，你把这两个条件给我吧：

1. 打开这个文件的程序的路径

2. 文件路径
   

程序路径   D:\Software\SolidWorks Corp\SolidWorks\SLDWORKS.EXE
文件路径   E:\SW\柱塞泵\SLDW\Assem1.SLDASM
文件方面  因为我有很多装配体要打开   所以是用的数据库列表  在列表里面有文件路径  代码用的 Adodc2.Recordset.Fields("装配体") & ".SLDASM"

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "E:/SW/柱塞泵/SLDW/Assem1.SLDASM", vbNull, vbNull, 5
End Sub

非常感谢你的回答   问题是我现在用的数据库列表  因为装配体较多 路径都在表里
怎样通过表里的路径打开文件？ 代码如上

你知道怎么一个一个取得表里面的内容就行了
用循环，然后再循环里面加上我给你的代码