Hallo nochmal,
Dim GesamtanzahlZeichnungen As Long
GesamtanzahlZeichnungen = 0
For k = 1 To CATIA.Documents.Count Step 1
If (Right(CATIA.Documents.Item(k).Name, 11) = ".CATDrawing") Then
GesamtanzahlZeichnungen = GesamtanzahlZeichnungen + 1
End If
Next
hat mein Problem gelöst...
(Offensichtlich werden in CATIA.Documents.Count auch wirklich die verlinkten Dateien mitgezählt, auch wenn sie nicht direkt geöffnet sind...)
Gruß
Martin!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP