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