I would like to be able to check in two documents and attach the second one to the first one. The code below checks in File1 but not file two. What am I doing wrong? File1 must be in the vault other wise TakeOwnership will crash.I may be using the variant wrong.

Thanks for any help.

Dan Miel

Private Sub VaultPart
Dim Path As String
Dim File1 As String
Dim File2 As String
Dim Conn As PDMWConnection
Dim Doc1 As PDMWDocument
Set Conn = CreateObject("PDMWorks.PDMWConnection")
Conn.Login User, PW, VaultName
Path = "C:\\SolidWorks Working\\Test for vaulter\\"
File1 = "dan1.sldprt"
File2 = "dan1.doc"
Set Doc1 = Conn.GetSpecificDocument(File1)
Doc1.TakeOwnership
Dim V As Variant
Dim S(0) As String
S(0) = Path & File2 'File2 is pdf to attach to file1
V = S
Conn.CheckIn Path & File1, "Trash", "Test NUm", "Test", "Delete this", Default, "", "R", False, V
Set Conn = Nothing

End Sub