Module Module1
Sub Main()
Dim objApp As SolidEdgeFramework.Application
Dim objSEEC As SolidEdgeFramework.SolidEdgeTCE
Dim varInputList(1) As Object
Dim FileItemID As String
Dim FileItemRevID As String
Dim FileDataSetName As String
Dim FileRevisionRule As String
Dim FolderName As String
Dim temp(0, 0) As Object
FileItemID = "020670"
FileItemRevID = "A"
FileDataSetName = "020670.par"
FileRevisionRule = ""
FolderName = ""
objApp = GetObject(, "SolidEdge.Application")
objSEEC = objApp.SolidEdgeTCE
'temp is a 2 dimensional array which is not optional
objSEEC.DownladDocumentsFromServerWithOptions(FileItemID, FileItemRevID, FileDataSetName, _
SolidEdgeConstants.RevisionRuleType.LatestRevision, "", False, True, SolidEdgeConstants.TCDownloadOptions.COImplicit, temp)
End Sub
End Module