erstellt am: 17. Mrz. 2011 10:34 <-- editieren / zitieren --> Unities abgeben: Nur für alias
Hallo, hier ein Codebeispiel:
Code: Dim CatiaDocs as Documents Dim CatiaDoc as Document
On Error Resume Next CatiaDocs = CATIA.Documents
For Each CatiaDoc In CatiaDocs If CatiaDoc.ReadOnly = true Then msgbox("Die Datei " & _ CatiaDoc.Name & " ist in " & _ CatiaDoc.Path & " schreibgeschützt") End If Next