Code herhalen maar aangepast

[Immow]

Hoi allemaal,

Ik zou graag wat hulp kunnen gebruiken bij een macro die ik probeer aan te passen. Mijn kennis is zeer beperkt en ben me net aan het verdiepen in macros.

Ik heb een code gevonden die werkt en "bijna" doet wat ik wil. De macro haalt uit onze server bestanden en plaats deze in een map, probleem is dat wij verschillende mappen hebben. Het is nogal omslachtig om voor elke map een macro te maken

Dus als deze code klaar is zou ik dan hetzelfde willen doen voor andere:

• project = connection.DocumentList("[A21a-20000] Roof")
• doc.Save "C:\CAD\Test\[A21a-20000] Roof\"

Option Explicit
Dim swApp As Object
Sub main()
    Dim connection As PDMWConnection
    Set connection = CreateObject("PDMWorks.PDMWConnection")
    connection.Login "Gebruikersnaam", "Wachtwoord", "192.168.xxx.xxx"
    'Enter your PDM Login details above, "username", "password", "pdmserver"

    Dim alldocs As PDMWDocuments
    Dim doc As PDMWDocument
    Dim project
    Dim item
    'Dim msg
    ' ^ remove the single quote from above if you want to debug.

    Set alldocs = connection.Documents
   [B] project = connection.DocumentList("[A21a-10000] Base")[/B]
    ' ^ Type in the name of the Project you wish to save the files out of.

    For Each item In project
        'msg = MsgBox(item, vbCritical)
        ' ^ remove the single quote from above if you want to debug.
        Set doc = alldocs(item)
        [B]doc.Save "C:\CAD\Test\[A21a-10000] Base\"[/B]
    Next item
connection.Logout
End Sub