---

Guten Morgen zusammen,
ich bekomme den unten aufgelisteten Code irgendwie nicht zum Laufen - das Iprop "Anzeigename" wird nicht mit in den Dateinamen geschrieben?
Ich würde mich sehr über eine Unterstützung freuen. Vielen Dank

Sub Export_Part()

'Reference zum Aktiven Dokument erstellen
    Dim oDocument As Document
    Set oDocument = ThisApplication.ActiveDocument

    Dim bErr As Boolean
    Dim fso As Object
    Set fso = CreateObject("Scripting.FilesystemObject")

    Dim ret As Variant
    Set ddoc = ThisApplication.ActiveDocument
 
  'Nachricht fall Dokument noch nicht gespeichert ist
      If ddoc.FullFileName = "" Then
        MsgBox "Bitte zuerst die Datei speichern...  "
        Exit Sub
    End If

    Dim oDiName As Inventor.Property
    On Error GoTo ErrorHandler
    Set oDiName = ddoc.PropertySets(4).Item("Anzeigename")

 
'Dateinamen mit Pfad erstellen
If bErr = False Then
    filename = "C:\Collaboration\Exchange\" & "\" & "oDiName" & ".ipt"
    'oDataMedium.filename = Strings.Replace(filename, "/", "_")
   
'Else
    'oDataMedium.filename = "C:\Collaboration\Exchange\" & "oDiName" & ".ipt"

End If
    Call oDocument.SaveAs("C:\Collaboration\Exchange\" & oDiName.PropId & ".ipt", True)
    FileSaveAs.ExecuteSave

 
  MsgBox "Part wurde unter  -- C:\Collaboration\Exchange -- gespeichert!!"

Exit Sub

ErrorHandler:
bErr = True
Resume Next

End Sub

------------------
MFG

BlueJay

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

---

Hat sich erledigt - war etwas blind

------------------
MFG

BlueJay

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