---

Hallo,
meine Aufgabe ist, in einem angegebenen Ordner alles Dateien der Typ .CATPart raus zu filtern und dann bearbeiten.

----------------------
Sub CATMain()
FolderPath = InputBox( "Geben den Name des Verzeichnis ein:", FolderPath)
MsgBox ("Ihre Eingabe ist: "&FolderPath)
Set FileSys = CATIA.FileSystem
Set Folder = FileSys.GetFolder(FolderPath)

For i = 1 To Folder.Files.Count
Set File = Folder.Files.Item(i)
    If InStr(File.Name, ".CATPart" ) <>0 then
   MsgBox ("Der gefundene Bauteilen in diesem Ordner ist: "&File.Name)
    End If

Next

End Sub
-------------------------------
Also mit dem entworfenen Skript kann ich alle Dateien der Typ .CATPArt merken. Jetzt möchte ich diese Namen ohne Ending benutzen (z.B Topf.CATPart -> Topf_in_Bearbeitung.STP bearbeiten und speichern)

Weiss jemand, wie ich jetzt das Ending des Datename wegstreichen, und dann das Ergebnis von dieser Aktion für die Benennung benutzen (vlt mit einem String ".CATPart" abziehen, kenne ich leider keinen Befehl.

Weitere Frage ist:
----------------------
Sub CATMain()
FolderPath = InputBox( "Geben den Name des Verzeichnis ein:", FolderPath)
MsgBox ("Ihre Eingabe ist: "&FolderPath)
Set FileSys = CATIA.FileSystem
Set Folder = FileSys.GetFolder(FolderPath)

u=0
For i = 1 To Folder.Files.Count
Set File = Folder.Files.Item(i)
    If InStr(File.Name, ".CATPart" ) <>0 then
   MsgBox ("Der gefundene Bauteilen in diesem Ordner ist: "&File.Name)
   Array(u)= File.Name
   u= u+1
   End If

Next

End Sub
---------------------------
Also hier werden alle Dateiname der Typ .CATPart in einem "Array" speichern. Gibt es aber hier eine Fehlermeldung. Weiss jemand vlt, wie man einen Array nutzt.

Danke für Eure Hilfe
VG

[Diese Nachricht wurde von tubuibam am 18. Dez. 2013 editiert.]

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

---

Servus
Bitte diese Fragen im Unterforum CATIA V5 Programmierung stellen und dort auch erst die Suchfunktion verwenden.
Zu deinem 1. Problem:
- entweder mit InStr (siehe Doku) die Anzahl der Stellen bis zu ".CATPart" auslesen
- oder zB Datei öffnen und Methoden "FullName", "Path" und "Name" des Dokuments nutzen (siehe Doku)
zum 2. Problem:
- welche Fehlermeldung kommt
- wo dimensionierst du den Array (Doku bzw Internetsuche zu VB bzw VBA) (Stichworte "ReDim preserve")
- ggf statt einem Array eine Collection verenden (siehe Forensuche)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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