SolidWorks二次开发::打开同目录下的所有*.sldprt 文件

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swDoc As ModelDoc2

Dim fileerror As Long
Dim filewarning As Long

Const folder As String = "D:\test\" '指定目录
Dim files As Variant

Sub main()
Set swApp = Application.SldWorks

files = Dir(folder & "*.sldprt", vbNormal) '获取指定目录下的第一个 *.sldprt 文件
Do While files <> ""
swApp.OpenDoc6 folder & files, swDocPART, 0, "", fileerror, filewarning '打开 *.sldprt 文件
files = Dir '获取指定目录下的下一个 *.sldprt 文件
Loop
End Sub