Hi all,

I frequently have to export a large assembly using pack&go, but I to not want to export parts which are located in a certain sub-directorty. So I tried to automatize the process using a VBA macro based on some code I found in the API-Doc and some code from this forum:

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swPackAndGo As SldWorks.PackAndGo
Dim oPaths As Variant
Dim listPaths() As Variant
Dim strCurrentPath As String
Dim strSaveToPath As String
Dim oResults As Variant
Dim i As Long
Dim nCount As Long
Dim retval As Boolean
Dim strDebug As String
Dim strFinalPaths() As String
Public Sub main()
    strSaveToPath = "F:\tmp\cad\"
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swPackAndGo = swModelDocExt.GetPackAndGo
    swPackAndGo.IncludeDrawings = True
    swPackAndGo.IncludeSimulationResults = False
    retval = swPackAndGo.GetDocumentSaveToNames(oPaths, Nothing)
    nCount = UBound(oPaths)
    ReDim listPaths(nCount)
    Debug.Print ""
    Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
    Debug.Print "Initial file list:"
    For i = 0 To nCount
        strDebug = "  " & i & ". " & oPaths(i) & "    ->    "
        If InStr(LCase(oPaths(i)), "\mech\bibliothek\") <> 0 Then
            Debug.Print strDebug & "SKIPPED"
            listPaths(i) = Empty
        Else
            strCurrentPath = Left(oPaths(i), InStrRev(oPaths(i), "\"))
            strCurrentPath = Replace(oPaths(i), strCurrentPath, strSaveToPath)
            Debug.Print strDebug & strCurrentPath
            listPaths(i) = strCurrentPath
        End If
    Next i
    Debug.Print "strFinalsPaths:"
    ReDim strFinalPaths(nCount)
    For i = 0 To nCount
        strFinalPaths(i) = listPaths(i)
        Debug.Print "  " & i & ". " & strFinalPaths(i)
    Next i
    retval = swPackAndGo.SetDocumentSaveToNames(strFinalPaths)
    Debug.Print "UBound(oPaths)=" & UBound(oPaths) & "; UBound(strFinalPaths)=" & UBound(strFinalPaths)
    Debug.Print ("Save-to names successfuly set in pack and go object: " & retval)
    retval = swPackAndGo.GetDocumentSaveToNames(oPaths, Nothing)
    Debug.Print "Final file list:"
    For i = 0 To UBound(oPaths)
        Debug.Print "  " & i & ". " & oPaths(i)
    Next i
End Sub

My problem is: "retval = swPackAndGo.SetDocumentSaveToNames(strFinalPaths)" fails, and I have no clue why.

The arrays "oPaths" and "strFinalPaths" both have same size (75 items) and it neither does matter whether I include drawings or not, nor whether I have some empty strings in "strFinalPaths" or not.  The destination directory exists, too.

More hints: The source files are all located on a network drive. I am using a German 64bit SolidWorks2013SP 4.0 on Windows7 professional with latest updates

Any hint why "SetDocumentSaveToNames" does fail are more than welcome.

Thomas

P.S.: (Partial) debug output looks like this:

strFinalsPaths:

  0. F:\tmp\cad\xmt_generic_01.sldasm

  1. F:\tmp\cad\01_parameters.txt

  2. F:\tmp\cad\scheibe_innen_01.sldprt

  3. F:\tmp\cad\scheibe_aussen_01.sldprt

  4. F:\tmp\cad\pvb_folie_01.sldprt

  5. F:\tmp\cad\vsg_01.sldasm

  6. F:\tmp\cad\epdm_bezel_lang_01.sldprt

  7. F:\tmp\cad\epdm_bezel_kurz_01.sldprt

  8. F:\tmp\cad\bezel_kurz_01.sldprt

  9. F:\tmp\cad\bezel_lang_01.sldprt

  10. F:\tmp\cad\vhb_lang_01.sldprt

  11. F:\tmp\cad\vhb_kurz_01.sldprt

  12.

  13.

  14.

  15.

  16.

  17.

  18.

  19.

  20.

  21.

  22. F:\tmp\cad\epdm_boden_lang_01.sldprt

  23. F:\tmp\cad\epdm_boden_kurz_01.sldprt

  24. F:\tmp\cad\boden_lang_blech_01.sldprt

  25. F:\tmp\cad\pem bsos-3.5m3-12 ---n.sldprt

  26. F:\tmp\cad\pem bs-m5-2 ---n.sldprt

  27. F:\tmp\cad\boden_lang_bolzen_01.sldasm

  28. F:\tmp\cad\boden_kurz_blech_01.sldprt

  29. F:\tmp\cad\pem cls-m3-2 ---n.sldprt

  30. F:\tmp\cad\boden_kurz_bolzen_01.sldasm

  31. F:\tmp\cad\deckel_lang_blech_01.sldprt

  32. F:\tmp\cad\pem bsos-m3-14 ---n.sldprt

  33. F:\tmp\cad\deckel_lang_bolzen_01.sldasm

  34. F:\tmp\cad\deckel_kurz_blech_01.sldprt

  35. F:\tmp\cad\deckel_kurz_bolzen_01.sldasm

  36.

  37.

  38.

  39.

  40.

  41.

  42.

  43.

  44.

  45.

  46.

  47.

  48.

  49.

  50.

  51. F:\tmp\cad\frontblende_01.sldprt

  52.

  53. F:\tmp\cad\z_blech_blech_01.sldprt

  54. F:\tmp\cad\pem cls-m3-1 ---n.sldprt

  55. F:\tmp\cad\z_blech_bolzen_01.sldasm

  56.

  57.

  58.

  59. F:\tmp\cad\eckwinkel_blech_01.sldprt

  60. F:\tmp\cad\pem bsos-m3-8 ---n.sldprt

  61. F:\tmp\cad\eckwinkel_bolzen_01.sldasm

  62.

  63. F:\tmp\cad\xmt-01_00913_013-uebersicht_01-a1.slddrw

  64. F:\tmp\cad\xmt-01_00913_003-uebersicht-a1.slddrw

  65. F:\tmp\cad\xmt-01_00913_003-uebersicht_intern-a1.slddrw

  66. F:\tmp\cad\xmt-01_00913_003-uebersicht-a1_old.slddrw

  67. F:\tmp\cad\xmt-01_00913_009-boden_kurz_01-a1.slddrw

  68. F:\tmp\cad\xmt-01_00913_008-boden_lang_01-a1.slddrw

  69. F:\tmp\cad\xmt-01_00913_011-deckel_kurz_01-a1.slddrw

  70. F:\tmp\cad\xmt-01_00913_010-deckel_lang_01-a1.slddrw

  71. F:\tmp\cad\xmt-01_00913_007-eckwinkel_01-a1.slddrw

  72. F:\tmp\cad\xmt-01_00913_012-frontblende_01-a1.slddrw

  73. F:\tmp\cad\xmt-01_00913_004-scheibe-a1.slddrw

  74.

  75. F:\tmp\cad\xmt-01_00913_005-z_blech_01-a1.slddrw

UBound(oPaths)=75; UBound(strFinalPaths)=75

Save-to names successfuly set in pack and go object: Falsch

Final file list:

  0. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt_generic_01.sldasm

  1. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\01_parameters.txt

  2. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\scheibe_innen_01.sldprt

  3. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\scheibe_aussen_01.sldprt

  4. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\pvb_folie_01.sldprt

  5. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\vsg_01.sldasm

  6. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\epdm_bezel_lang_01.sldprt

  7. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\epdm_bezel_kurz_01.sldprt

  8. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\bezel_kurz_01.sldprt

  9. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\bezel_lang_01.sldprt

  10. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\vhb_lang_01.sldprt

  11. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\vhb_kurz_01.sldprt

  12. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\mtir-sc-v30\mtir-sc-v30_pcb.sldprt

  13. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\mtir-sc-v30\kingbright_l-5603_body.sldprt

  14. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\mtir-sc-v30\mtir-sc-v30_electronics.sldprt

  15. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\6871xx14022_pin.sldprt

  16. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\6871xx14022_patte.sldprt

  17. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\6871xx14022_patte_2.sldprt

  18. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\68711814022.sldprt

  19. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\68711814022_cap.sldprt

  20. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\68711814022.sldasm

  21. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\mtir-sc-v30\mtir-sc-v30.sldasm

  22. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\epdm_boden_lang_01.sldprt

  23. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\epdm_boden_kurz_01.sldprt

  24. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\boden_lang_blech_01.sldprt

  25. p:\solidworks\solidworks_data\copiedparts\pem bsos-3.5m3-12 ---n.sldprt

  26. \\lxserv2\document\mech&pics\solidworks\solidworks_data\copiedparts\pem bs-m5-2 ---n.sldprt

  27. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\boden_lang_bolzen_01.sldasm

  28. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\boden_kurz_blech_01.sldprt

  29. \\lxserv2\document\mech&pics\solidworks\solidworks_data\copiedparts\pem cls-m3-2 ---n.sldprt

  30. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\boden_kurz_bolzen_01.sldasm

  31. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\deckel_lang_blech_01.sldprt

  32. p:\solidworks\solidworks_data\copiedparts\pem bsos-m3-14 ---n.sldprt

  33. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\deckel_lang_bolzen_01.sldasm

  34. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\deckel_kurz_blech_01.sldprt

  35. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\deckel_kurz_bolzen_01.sldasm

  36. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\jst\jst_s4b-eh.sldprt

  37. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\jst\jst_s2b-eh.sldprt

  38. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\ecomp\bma150.sldprt

  39. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\jst\jst_b_4b-eh-a.sldprt

  40. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\mtir-uif-v3\mtir_uif_v3-pcb.sldprt

  41. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\ecomp\l1206.sldprt

  42. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\shielding_1.sldprt

  43. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\insulator_1.sldprt

  44. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\pins.sldprt

  45. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\pins_2.sldprt

  46. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\pins_3.sldprt

  47. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\pins_4.sldprt

  48. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\pins_5.sldprt

  49. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\stecker_buchsen\wuerth\651305142821.sldasm

  50. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\mtir-uif-v3\mtir_uif_v3.sldasm

  51. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\frontblende_01.sldprt

  52. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\monitore\eyevis\eye-lcd-8400-qhd-le.sldprt

  53. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\z_blech_blech_01.sldprt

  54. \\lxserv2\document\mech&pics\solidworks\solidworks_data\copiedparts\pem cls-m3-1 ---n.sldprt

  55. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\z_blech_bolzen_01.sldasm

  56. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\ecomp\tssop16.sldprt

  57. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\xmt-edge-v10\xmt-edge-pcbn.sldprt

  58. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\xmt-edge-v10\xmt-edge-v10n.sldasm

  59. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\eckwinkel_blech_01.sldprt

  60. p:\solidworks\solidworks_data\copiedparts\pem bsos-m3-8 ---n.sldprt

  61. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\eckwinkel_bolzen_01.sldasm

  62. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\richco\n-3e.sldprt

  63. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_013-uebersicht_01-a1.slddrw

  64. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_003-uebersicht-a1.slddrw

  65. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_003-uebersicht_intern-a1.slddrw

  66. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_003-uebersicht-a1_old.slddrw

  67. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_009-boden_kurz_01-a1.slddrw

  68. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_008-boden_lang_01-a1.slddrw

  69. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_011-deckel_kurz_01-a1.slddrw

  70. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_010-deckel_lang_01-a1.slddrw

  71. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_007-eckwinkel_01-a1.slddrw

  72. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_012-frontblende_01-a1.slddrw

  73. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_004-scheibe-a1.slddrw

  74. \\lxserv2\document\mech&pics\solidworks\mech\bibliothek\baugruppen\mtir\xmt-edge-v10\xmt_edge_v10-01_00913_002-a3.slddrw

  75. \\lxserv2\document\mech&pics\solidworks\mech\xmt\konstruktion_01\xmt-01_00913_005-z_blech_01-a1.slddrw