---

Hallo zusammen,

ich möchte in ein erzeugtes Product aus einem Zielverzeichniss bestehende CatParts dazuladen.

Das Product wird erfolgreich erstellt und das erste Catpart auch eingefügt. Leider aber nur eines !

Fehler im Array.

Kann mir hier bitte jemand weiter helfen

Grüße

Klaus

Sub CATMain()

Set documents1 = CATIA.Documents
Set productDocument1 = documents1.Add("Product")
Set product1 = productDocument1.Product
product1.PartNumber = "ZSB_CATPart"

folderinput = InputBox ("Bitte den Ursprungsordner eingeben","Eingabe","M:\MITARBEITER",500,1000)

Dim fs, f, f1, fc,
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc
Set products1 = product1.Products
Dim array_1(0)
array_1(0) =  f1
products1.AddComponentsFromFiles array_1, "All"

Next

End Sub

------------------
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus
hab deinen code mal angesehen und nur das dim geändert.
Language="VBSCRIPT"

Sub CATMain()
Dim array_1(0)
Set documents1 = CATIA.Documents
Set productDocument1 = documents1.Add("Product")
Set product1 = productDocument1.Product
product1.PartNumber = "ZSB_CATPart"

folderinput = InputBox ("Bitte den Ursprungsordner eingeben","Eingabe","M:\MITARBEITER",500,1000)

Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc
Set products1 = product1.Products

array_1(0) =  f1
products1.AddComponentsFromFiles array_1, "All"

Next

End Sub

Funzt bei mir auf R16 einwandfrei,wenn nur CATParts in dem Verzeichnis sind.

Gruß Andy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andy,

super jetzt gehts bei mir auch !

kleine Ursache - Große Wirkung
wenn du wüstest, was ich schon alles ausprobiert habe ....

Danke

Schönes Wochenende

Grüße

Klaus

------------------
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus

Kein problem! Ich kenn sowas zur genüge und genug schlaflose Nächte!
Schönes wochenende

Gruß
Andy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP