---

Servus

bin noch ziemlich jungfräulich auf dem Gebiet Makros.
Habe mir mit dem V5 Kochbuch folgendes zusammengestellt.
Funktioniert einwandfrei.
Aber ich möchte nicht den ganzen Ordner sondern nur mehrere angewählte Parts abspeichern.
Kann mir jemand helfen??

Sub CATMain()
Dim sShell As Object
Dim strFolder As String
Dim File As File
Dim Folder As Folder
Dim PartDocument() As Document
Dim strFileName As String

'**************************Verzeichnis auswählen**********************************************
Set sShell = CreateObject("Shell.Application")
strFolder = sShell.BrowseForFolder(0, "Ordner der Zeichnung auswählen", 0).self.path
Set Folder = CATIA.FileSystem.GetFolder(strFolder)

'**************************alle CATDrawings öffnen una als PDF speichern**********************
For Each File In Folder.Files                      'Schleife über alle Dateien im Vezeichnis
  if Right(File.Name, 11) = ".CATPart" Then    'wenn es eine CATDrawing ist
        Set PartDoc = CATIA.Documents.Open(File.path) 'Datei öffnen
        strFileName = Left(File.path, Len(File.path) - 11) & ".stp" 'Dateinamen bilden
        PartDoc.ExportData strFileName, "stp"        'Datei exportiernen
        PartDoc.Close                                'Datei schliessen
  End If
Next

For Each File In Folder.Files                                                  'Schleife über alle Dateien im Vezeichnis
    If Right(File.Name, 3) = "stp" And InStr(File.Name, "Detail") <> 0 Then    'wenn Endung "pdf" und im Name "Detail" vorkommt
        CATIA.FileSystem.DeleteFile File.path                                  'Datei löschen
    End If
Next
  MsgBox "Oschluooch"

End Sub

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

---

Hallo,

Du willst einem alten Mann erzählen, dass das für .stp funktioniert?
Komisch ist nur, dass die Dateinamen alle beim speichern verkürzt werden, sofern das Makro CatParts überhaupt findet.

Du bist nicht nur bei Makros Anfänger, sondern auch bei VB.
Sonst wäre Dir aufgefallen, dass die Endung '.CatDrawing' länger ist als die Endung '.CatPart'.

Somit sind die Zeilen

Code:

---

if Right(File.Name, 11) = ".CATPart" Then    'wenn es eine CATDrawing ist
.
.
strFileName = Left(File.path, Len(File.path) - 11) & ".stp" 'Dateinamen bilden

---

falsch.
Ausserdem: Wenn Kommentare nicht mehr stimmen, kannst sie auch weglassen.

Für den Anfang:
- trag bitte deine Daten ins Profil ein, damit klar wird, womit Du programmierst.
- schlag in der Online-Hilfe zu VB die String-Befehle Left$, Right$, Instr, Len nach.
- lies die ersten Kapitel zum Thema 'Editoren' nochmal durch

Fragen: Die Dateien liegen in einem Verzeichnis. Wie wählst Du sie aus?
Kennst Du die Namen? Sind die immer gleich? Oder willst Du sie aus einer Liste auswählen?
Hast Du auch eine Lizenz für Step?

Das soll erstmal reichen.

Tschau,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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