ich habe hier ein Script von K.Siebert, ist es möglich diesen so zu erweitern das auch alle Unterordner mit durchgesucht werden?
Zitat:
Sub CATMain()Dim UserSelektion As Selection
Set productDocument1 = CATIA.ActiveDocument
Set UserSelektion = productDocument1.Selection
UserSelektion.Search "(CATAsmSearch.Part+(CATAsmSearch.Product)),all"
For I = 1 to UserSelektion.Count
'CATIA.DisplayFileAlerts = False
On Error Resume Next
Name = (UserSelektion.Item(I).Value.ReferenceProduct.Name)
FullNameX = (UserSelektion.Item(I).Value.ReferenceProduct.Parent.Fullname)
CATIA.Documents.Open (FullNameX)
Dim document As document
Dim splitname As string
Set document = CATIA.ActiveDocument
splitname = Split(document.Name, ".")
Set pro = document.Product
pro.PartNumber = splitname(0)
next
Schliesen
end sub
Sub Schliesen()
For i = 1 to 1000 'CATIA.ActiveDocument.Count
Pfad = CATIA.ActiveDocument.path
Name = CATIA.ActiveDocument.Name
Datei = Pfad & "\" & Name
CATIA.DisplayFileAlerts = False 'Fester ausschalten
Dim doc As Document
Set doc = CATIA.ActiveDocument